19 lines
465 B
Text
19 lines
465 B
Text
[ stack ] is quantity ( --> s )
|
|
[ stack ] is factors ( --> s )
|
|
|
|
[ factors put
|
|
quantity put
|
|
[] 1
|
|
[ over size
|
|
quantity share != while
|
|
1+ dup primefactors
|
|
size factors share = if
|
|
[ tuck join swap ]
|
|
again ]
|
|
drop
|
|
factors release
|
|
quantity release ] is almostprimes ( n n --> [ )
|
|
|
|
5 times
|
|
[ 10 i^ 1+ dup echo sp
|
|
almostprimes echo cr ]
|