Revision as of 08:47, 11 May 2015 (view source) Franck (talk \| contribs) (→‎{{header\|Oforth}}) ← Older edit		Revision as of 10:04, 27 May 2015 (view source) Franck (talk \| contribs) m (→‎{{header\|Oforth}}: Replace divrem by /mod) Newer edit →
Line 481: { \| i \| 0 2 n sqrt asInteger for: i [ while(n i ~~divrem~~/mod swap 0 &==) [ ->n 1 + ] drop ] n 1 > ifTrue: [ 1 + ] 2 == }</lang>

Semiprime: Difference between revisions

Semiprime (view source)