Revision as of 19:58, 5 May 2016 (view source) Tigerofdarkness (talk \| contribs) (→‎{{header\|ALGOL 68}}: bug fix) ← Older edit		Revision as of 11:13, 6 July 2016 (view source) Franck (talk \| contribs) m (→‎{{header\|Oforth}}) Newer edit →
Line 825: <lang Oforth>func: semiprime(n) { \| i \| 0 2 n sqrt asInteger for: i [ while(n i /mod swap 0 &=) [ ->n 1 + ] drop ] n 1 > ifTrue: [ 1 + ] 2 == ; </lang> ~~}</lang>~~ {{out}}

Semiprime: Difference between revisions

Semiprime (view source)