Revision as of 18:05, 21 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - simplified code) ← Older edit		Revision as of 18:19, 22 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - simplified code) Newer edit →
Line 1,209: drop false exit then dup 10>r 10 begin ~~dup~~2dup ~~3 pick <~~> while ~~2 pick over~~2dup mod dup ~~3 pick~~r> = if 2drop ~~2drop~~drop false exit then dup prime? invert if 2drop ~~2drop~~drop false exit then ~~rot drop swap~~>r 10 * repeat 2drop ~~drop~~rdrop true ; : right_truncatable_prime? ( n -- flag )

Truncatable primes (view source)