 Paganel, antisémantique - 980920    Publié le 08/01/2022 à 06:50 
Version 1 :Citation:
primes 90
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89
⎕cr 'primes'
z←primes n
z←(2=+/[1]0=(⍳n)◦.|⍳n)/⍳n
Mieux vaut ne pas essayer avec un argument trop grand.
Version 2 : argument presque aussi grand que l'on veutCitation:
eratos 90
2 → 3
3 → 5
5 → 7
7 → 11
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89
⎕cr 'eratos'
z←eratos n;k;u;nn;oldk
nn←⌊√n
u←0,(n-1)⍴1 ⍝ prime
k←2
loop: u[1↓k×⍳⌊n÷k]←0 ⍝ not prime
oldk←k
k←k+(k↓u)⍳1
⎕←oldk '→' k
→(k≤nn)/loop
z←u/⍳n
"C'est pt'et' con, mais tout est con" (Renaud)
|
