(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 ; ; |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)