by kadtexas » 03 Apr 2016, 18:04 J'ai fait une fonction Phi(n) qui compte le nombre d'entiers compris entre 1 et (n-1) et premiers avec n mais l'exécution est trop lente pour les grands entiers plus grands que 20000
Voici la fonction:
- Code: Select all
Define LibPub phi(n)=
Func
:Local i,list
:list:={}
:For i,1,n
: If gcd(i,n)=1 Then
: list:=augment(list,{i})
: EndIf
:EndFor
:Disp count(list)," entiers premiers avec ",n
:©Return list (avec les grands nombres, affiche un message:plus de ressources)
:Return terminé
:EndFunc
Y a t-il un moyen d'améliorer la vitesse...?
Merci pour vos commentaires
