Post Reply 
(50G) Square Part & Square-free Kernel of Integer
03-06-2015, 07:02 PM (This post was last modified: 06-15-2017 01:38 PM by Gene.)
Post: #1
(50G) Square Part & Square-free Kernel of Integer
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
;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(50G) Square Part & Square-free Kernel of Integer - Gerald H - 03-06-2015 07:02 PM



User(s) browsing this thread: 1 Guest(s)