Forum TI-Planet.org

Bonjour

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

Normalement, tu as une librairie inclue appelée numtheory dans MyLib qui contient déjà cette fonction

Merci pour l'information.

De rien