Smarandache prime-digital sequence: Difference between revisions
Content added Content deleted
(Added Forth solution) |
m (Forth - simplified code) |
||
| Line 549: | Line 549: | ||
dup 2 = if drop 1+ exit then |
dup 2 = if drop 1+ exit then |
||
dup 3 = if drop 2 + exit then |
dup 3 = if drop 2 + exit then |
||
5 = if 2 + exit then |
|||
drop |
|||
10 / recurse 10 * 2 + ; |
10 / recurse 10 * 2 + ; |
||