Truncatable primes: Difference between revisions

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

edits