Suite de Syracuse

[Debinfo75]

Désolé pour le post précédent, il s'agit bien de la suite dite de Syracuse et non de Césaro.

Bonjour,

je tente en vain de définir une fonction qui rend le n-iéme terme de cette suite définie par Un+1 = Un/2 si Un pair, et (3*Un)+1 si Un impair, à partir de Uo fixé.

Je prends 2 variables n le rang du terme, et p le premier terme.
Je ne parviens pas à construire la récurrence.
Je pose
if (= n 0)
p
J'ai fait des essais directs à partir de cette étape, j'ai également essayé de passer par une seconde condition sur n = 1 suivie de (even? p) p/2 sinon (3p)+1. mais je n'arrive pas à démarrer la récurrence.

A votre avis, faut-il 2 variables?

Merci par avance des idées qui pourraient débloquer ma réflexion.

Cordialement.

[So.Ta]

Ce que je ferai de mon côté, c'est d'abord de créer une fonction qui prenant le Uo et rend une liste contenant tous les termes de la suite de Syracuse calculés. Et puis une seconde fonction, prenant comme argument la liste précédente et d'abord vérifiant si la liste a autant de termes de que celui qu'on demande et puis aller le chercher dans la liste.

Je n'ai pas encore vraiment cherché à le faire en vrai mais voilà la manière dont je procéderai.

EDIT : Voilà, j'ai mis en application mon idée. Je me pose juste une question. Est-ce que tu comptes tout faire toi-même ? En soit, cela serait un bon exercice mais de mon côté je n'ai pas eu le courage et j'ai employé des fonctions de la bibliothèque standard pour l'extraction du i-ème terme. Quoi que je viens de trouver une fonction qui le faisait directement.

[Trap D]

So.Ta >> ton idée est tout à fait dans l'esprit du fonctionnel mais je pense qu' elle dépasse le niveau d'un débutant.
Le plus simple à mon avis est une fonction a trois arguments (syracuse n v nmax) ou n est le numéro d'indice courant , nmax le numero d'indice désiré et v la valeur courante de la suite. On lance avec (syracuse 1 2011 100) par exemple.
On peut ensuite réfléchir pour passer de 3 à seulement deux arguments.

[So.Ta]

Trap.D >> Cela fait longtemps que je n'avais pas fait de Scheme d'où peut-être un légère tendance à prendre un chemin plus compliqué[1] mais c'est vrai que la solution que tu proposes est plus facile à implémenter.

Debinfo75 >> Si tu passes encore sur ce sujet, peux-tu nous dire où en es-tu de ton côté ?

[Debinfo75]

Merci à vous.

Je reviens sur le sujet et y réfléchis de nouveau.
Tardivement, en tout cas pas à la mesure de votre disponibilité.
Je vous tiens au courant de ma progression.

A nouveau merci.
Cordialement.

[bazoga]

Bonsoir,

si j'ai bien compris, voila un une fonction qui rend le nieme terme:

Code :

1
2
3
4
5
6
7
(define (nieme-terme n u0)
   (let and-next ((terme0  u0)
                 (comp n))
     (cond ((zero? comp)    terme0)
           ((even? terme0) (and-next (/ terme0 2) (- comp 1))) 
           (else (and-next (+ (* 3 terme0) 1) (- comp 1))))))

Cordialement
E. Bazoga