Semiprime: Difference between revisions

Semiprime (view source)

64 bytes removed , 3 years ago

→‎{{header|Factor}}: Use a better method for finding semiprimes; prune unused vocabs; tweak output code

1,827

edits

Revision as of 06:03, 6 March 2021 (view source) Alextretyak (talk \| contribs) (Added 11l) ← Older edit		Revision as of 10:10, 2 April 2021 (view source) Chunes (talk \| contribs) (→‎{{header\|Factor}}: Use a better method for finding semiprimes; prune unused vocabs; tweak output code) Newer edit →
Line 909: =={{header\|Factor}}== {{works with\|Factor\|0.98}} <lang>USING: ~~kernel~~io ~~math.combinatorics~~kernel math.primes.factors sequences ; : semiprime? ( n -- ? ) factors length 2 = ;</lang> ~~[ factors 2 <combinations> [ product ] map ]~~ ~~[ [ = ] curry ] bi any? ;</lang>~~ Displaying the semiprimes under 100: <lang>100 <iota> [ semiprime? ] filter [ ~~pprint~~ bl ] ~~each~~[ pprint ] interleave nl</lang> {{out}} <pre>