Anonymous user
Semiprime: Difference between revisions
Added EchoLisp
(Added EchoLisp) |
|||
Line 268:
$ @factor 2147483646
FACTORIZATION = "2*3*3*7*11*31*151*331"</pre>
=={{header|EchoLisp}}==
<lang scheme>
(lib 'math)
(define (semi-prime? n)
(= (length (prime-factors n)) 2))
(for ((i 100))
(when (semi-prime? i) (write i)))
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95
(lib 'bigint)
(define N (* (random-prime 10000000) (random-prime 10000000)))
→ 6764578882969
(semi-prime? N)
→ #t
</lang>
=={{header|Erlang}}==
| |||