Anonymous user
Primality by trial division: Difference between revisions
added Ol
Langurmonkey (talk | contribs) |
(added Ol) |
||
Line 2,224:
, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997
]</pre>
=={{header|Ol}}==
<lang scheme>
(define (prime? number)
(define max (sqrt number))
(define (loop divisor)
(or (> divisor max)
(and (> (modulo number divisor) 0)
(loop (+ divisor 2)))))
(or (= number 1)
(= number 2)
(and
(> (modulo number 2) 0)
(loop 3))))
</lang>
Testing:
<lang scheme>
; first prime numbers less than 100
(for-each (lambda (n)
(if (prime? n)
(display n))
(display " "))
(iota 100))
(print)
; few more sintetic tests
(for-each (lambda (n)
(print n " - prime? " (prime? n)))
'(
1234567654321 ; 1111111 * 1111111
679390005787 ; really prime, I know that
679390008337 ; same
666810024403 ; 680633 * 979691 (multiplication of two prime numbers)
12345676543211234567654321
12345676543211234567654321123456765432112345676543211234567654321123456765432112345676543211234567654321
))
</lang>
{{out}}
<pre> 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
1234567654321 - prime? #false
679390005787 - prime? #true
679390008337 - prime? #true
666810024403 - prime? #false
12345676543211234567654321 - prime? #false
12345676543211234567654321123456765432112345676543211234567654321123456765432112345676543211234567654321 - prime? #false
</pre>
=={{header|Oz}}==
| |||