Page 4 sur 4

Re: Listes et nombres premiers

Message non luPosté: 09 Nov 2018, 21:02
de kinkazma
Hey j'ai réussi ! J'ai même réussi en 25 lignes !

Re: Listes et nombres premiers

Message non luPosté: 09 Nov 2018, 21:05
de kinkazma
Je veux bien le mettre en ligne si vous voulez !
Merci à tous de votre soutiens et de votre aide !

Re: Listes et nombres premiers

Message non luPosté: 14 Nov 2018, 21:33
de kinkazma
Code: Tout sélectionner
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 !

Re: Listes et nombres premiers

Message non luPosté: 15 Nov 2018, 11:43
de 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 ?

Re: Listes et nombres premiers

Message non luPosté: 15 Nov 2018, 14:39
de 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...?

Re: Listes et nombres premiers

Message non luPosté: 15 Nov 2018, 15:31
de Hamza.S
Tu n'as pas besoin de =true

Re: Listes et nombres premiers

Message non luPosté: 15 Nov 2018, 17:30
de kinkazma
Pourquoi pas, mais cela ne change pas mon problème ! ?

Re: Listes et nombres premiers

Message non luPosté: 15 Nov 2018, 17:37
de kinkazma
J'ai trouvé la solution ! C'est bon !