Revision as of 23:00, 20 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - simplified code) ← Older edit		Revision as of 18:17, 22 February 2021 (view source) Simonjsaunders (talk \| contribs) m (Forth - simplified code) Newer edit →
Line 701: : digit_sum ( n -- n ) 0 >r begin ~~over~~dup 0 > while ~~over~~dup 10 mod r> + >r ~~swap~~ 10 / ~~swap~~ repeat ~~swap~~ drop r> ; : extra_primes ( n -- )

Extra primes: Difference between revisions

Extra primes (view source)