03-06-2015, 07:02 PM
For positive integer input > 0 the prog returns square part in level 2 of stack & square-free kernel to level 1.
::
CK1&Dispatch
# FF
::
DUP
FPTR2 ^MZSQFF
#2/
Z1_
SWAP
ZERO_DO
3UNROLL
COERCEDUP
BINT2
#/
DROP
#-
FPTR2 ^PPow#
FPTR2 ^RMULText
LOOP
DUPUNROT
FPTR2 ^ZQUOText
;
;
::
CK1&Dispatch
# FF
::
DUP
FPTR2 ^MZSQFF
#2/
Z1_
SWAP
ZERO_DO
3UNROLL
COERCEDUP
BINT2
#/
DROP
#-
FPTR2 ^PPow#
FPTR2 ^RMULText
LOOP
DUPUNROT
FPTR2 ^ZQUOText
;
;