Additive primes: Difference between revisions

Content deleted Content added
Petelomax (talk | contribs)
m <del>shose elements are</del>
m Minor edit to Forth code
Line 133: Line 133:
dup 0 >
dup 0 >
while
while
dup 10 mod r> + >r
10 /mod swap r> + >r
10 /
repeat
repeat
drop r> ;
drop r> ;