14 lines
294 B
Text
14 lines
294 B
Text
[ dup prime iff
|
|
nested done
|
|
[] swap
|
|
dup times
|
|
[ i^ 2 + prime
|
|
not if done
|
|
[ dup i^ 2 + /mod
|
|
0 = while
|
|
nip dip
|
|
[ i^ 2 + join ]
|
|
again ]
|
|
drop
|
|
dup 1 = if conclude ]
|
|
drop ] is primefactors ( n --> [ )
|