Poser n=0
Poser w(x)=x 
Répéter indéfiniment 
    Si w(0) et w (1) ont même partie entière d 
        Afficher d 
        Poser n=n+1 
        Poser w(x)=10(w(x)-d) 
    Sinon  
        Poser w(x)=w(f(x))