Truncatable primes: Difference between revisions
m
Forth - simplified code
(Added Forth solution) |
m (Forth - simplified code) |
||
Line 1,229:
drop false exit
then
begin
10 / dup 0 >
while
dup prime? invert if
drop false exit
then
repeat
drop true ;
|