+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (50G) Square Part & Square-free Kernel of Integer (/thread-3286.html)
(50G) Square Part & Square-free Kernel of Integer - Gerald H - 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
;
;