Discussion :

[Nemerle]

qui me propose un algo pour générer la suite suivante:

233233323332332333233323332332333233323332332...

[sovitec]

Allons-y

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

écrire("233233323332332333233323332332333233323332332...")

Voilà

[ToTo13]

Bonjour,

peux tu donner quelques nombres de plus....

[10_GOTO_10]

Est-ce que c'est le même algorithme que pour écrire:

344344434443443444344434443443444344434443443...

?

[zooro]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Séquence         : 2 33 2 333 2 333 2 33 2 333 2 333 2 333 2 33 2 333 2 333 2 333 2 33 2 ...
Répétition des 3 :   2    3     3     2    3     3     3     2    3     3     3     2

Effectivement, il nous faudrait quelques chiffres de plus pour repérer le motif...

[10_GOTO_10]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Séquence         : 2 33 2 333 2 333 2 33 2 333 2 333 2 333 2 33 2 333 2 333 2 333 2 33 2 ...
Répétition des 3 :   2    3     3     2    3     3     3     2    3     3     3     2

Effectivement, il nous faudrait quelques chiffres de plus pour repérer le motif...

j'ai compris, c'est une suite auto-référente:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Suite = "233"
i = 1
Pour tous les indices i
faire:
  si Suite[i] est égal à deux
    ajouter "233" à la suite
  sinon
    ajouter "2333" à la suite
fin pour

[ToTo13]

j'ai compris

Non !

j'ai compris, c'est une suite auto-référente:

très certainement.

[10_GOTO_10]

Non !

Alors ça veut dire que sans comprendre, j'ai réussi à retrouver l'algorithme! balèze !

exemple d'implémentation en c:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  char suite[1000];
  int i;
 
  strcpy(suite, "2");
  for (i = 0; i < 12; i++) {
    if (suite[i] == '2') strcat(suite, "332");
    else strcat(suite, "3332");
  }

qui donne la suite déja connue. Vous voulez plus de chiffres ? Il suffit d'augmenter le 12 dans la boucle for. Pour i jusqu'à 20:

233233323332332333233323332332333233323332332333233323323332333233323323332

jusqu'à 50:

2332333233323323332333233323323332333233323323332333233233323332333233233323332333233233323332333233233323332332333233323332332333233323332332333233323332332333233323323332333233323323332

[borisd]

exemple d'implémentation en c:

Ce n'est pas exactement l'implémentation de l'algo que tu as cité avant (qui me semble faux si les indices commencent à 1 comme d'habitude en algo) mais bien vu, ça me convainc personnellement

[10_GOTO_10]

Effectivement, ce n'est pas tout à fait l'algo, parce que je voulais retrouver très exactement la suite donnée en exemple, et que cette suite finit par un 2. Donc au lieu de commencer à 1 et de rajouter "233" (ou "2333"), j'ai commencé à 0 en rajoutant "332" ou "3332". Mais c'est juste un décalage, les deux algos sont justes.

[borisd]

Je suis d'accord avec toi si la chaîne est indexée à partir de 0. Néanmoins, ce n'est pas l'usage (du moins je crois) en algorithmique (mais une fois que s'est précisé, ok).

[Nemerle]

10 GOTO 10: tu as trouvé l'autoréférence de cette suite de SLoane!

Z'etes bon les gars

je ne vous ferais pas l'affront de vous donner celle-là, super-connue:

1 11 21 1211 111221 312211 13112221 ...

[gangsoleil]

je ne vous ferais pas l'affront de vous donner celle-là, super-connue:

1 11 21 1211 111221 312211 13112221 ...

1113213211 31131211131221 ...

Non effectivement, c'est trop connue, c'est dommage.

Par contre, écrire le code d'une telle suite peut être plus ou moins drôle en focntion du langage que l'on souhaite utiliser (parsing de chaines de caractères ayant des longueurs variables, ...)

[Trap D]

Un petit code en Prolog

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
affiche([],L,L):-
	write(' ').
 
affiche([[X,N1] | T],L1, L2) :-
	write(N1), write(X), 
	append(L1, [N1,X], L3),
	affiche(T,L3,L2).
 
 
suite(0,_,_) :-
	nl,writeln('termine').
 
suite(N, [], L1) :-
	reverse(L1,L2),
	affiche(L2, [],L),
	N1 is N-1,
	suite(N1, L, []).
 
suite(N, [X|T], [[X,N1] | T1]):-
	N2 is N1+1, !,
	suite(N, T, [[X,N2]| T1]).
 
suite(N, [X|T], L):-
	suite(N, T, [[X,1] | L]).
 
test :-
	write('1 '),
	suite(10, [1], []).

10 est le nombre de tours de boucle.