Listes et nombres premiers

[kinkazma]

Hey j'ai réussi ! J'ai même réussi en 25 lignes !

[kinkazma]

Je veux bien le mettre en ligne si vous voulez !
Merci à tous de votre soutiens et de votre aide !

[kinkazma]

Code: Select all

Define LibPub premier(z,a)=
Prgm
:l1:={}
:l2:={}
:l3:={}
:l4:={}
:x:=0
:z→k
:While z<a
:z+1→z
:x+1→x
:If string(isPrime(z))="true" Then
:Disp z
:l1[dim(l1)+1]:=z
:l3[dim(l3)+1]:=1
:l4[dim(l4)+1]:=1
:EndIf:If x=3159 or x=a Then
:x:=0
:sum(l3)→p
:l2[dim(l2)+1]:=p
:l3:={}
:EndIf
:EndWhile
:l2[dim(l2)+1]:=p
:Disp " "
:Disp sum(l4)
:sum(l4)→p
:Disp "Pour :",a-k
:DelVar a,z,x,k,l3,l4
EndPrgm


J'ai un bug dans mon programme mais je ne vois pas où !
Le truc c'est que parfois ma liste L2 me donne deux arguments au lieu de 1 seul quand mon intervalle est inférieur à 3159...
Je ne vois pas comment faire !

[Bisam]

Pourquoi t'obstines-tu à écrire If string(isPrime(z))="true" Then alors que If isPrime(z) Then est plus rapide, plus clair, et fait la même chose ?

[kinkazma]

Ça fonctionne aussi... et je n'ai pas compris comment ce tu me propose fonctionne...
Il faut mettre If isPrime(z)=true Then ? Sinon ça ne fonctionne pas...?

[Hamza.S]

Tu n'as pas besoin de =true

[kinkazma]

Pourquoi pas, mais cela ne change pas mon problème ! ?

[kinkazma]

J'ai trouvé la solution ! C'est bon !