apl2,nars2000
Forums > Informatique / InternetAller à la dernière page
<< Précédent |

APL2/NARS2000

| Suivant >>
Ecrire une réponseAjouter à vos forums favoris
Paganel, antisémantique - 980920 lui écrire blog Publié le 08/01/2022 à 06:50 Demander à la modératrice de supprimer ce forum
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 veut
Citation:
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)

Page 1

Forums > Informatique / Internet Ecrire une contribution Retour au début de la page


<< Précédent | APL2/NARS2000| Suivant >>

Accueil | Conditions générales | FAQ | Contact | Créé par CAPIT
 Accueil
 Mon Menu Perso
 Rencontre
 Messagerie
 Chat
 Espace membre
 Expressions
Forum
 Net Etiquette
 Vos forums
 Charte utilisation
 Derniers posts
 Rechercher
 Forums favoris
 Modération
 Mode d'emploi
 Santé
 Sexualité
 Mariage
 Astrologie
 Jeux
 Voyager
 Humour
 Editorial
3 connectés au chat
10 connectés au total
Consulter l'annonce
ajouter aux favoris APL2 NARS2000