Revision as of 08:42, 27 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - minor edit) ← Older edit		Revision as of 09:26, 27 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - simplified code) Newer edit →
Line 710: drop r> ; : ~~extra_primes~~next_extra_prime ( n -- n ) 2▼ begin ~~2dup >~~ while ▼ dup is_prime? if dup digit_sum is_prime? if dup . cr then then▼ next_prime_digit_number dup is_prime? if ▲ ~~dup~~ ~~is_prime? if~~ dup digit_sum is_prime? ~~if dup . cr then then~~ else false then until ; : extra_primes ( n -- ) ▲ 20 begin next_extra_prime 2dup > ▲ while dup . cr repeat 2drop ;

Extra primes: Difference between revisions

Extra primes (view source)