Discussion :

[Garamante]

Bonjour à tous !!

Je débute en programmation et c'est en suivant le conseil d'un ami développeur que j'ai commencé par le Caml . Mais comme je suis tombé sur un résultat que je ne comprends pas et comme je n'aime pas continuer sans comprendre je vous explique le truc

le code suivant calcule les différents arrêt (au hasard) d'un ascenseur jusqu'à l'étage 0.

Code :

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

1
2
3
4
5
6
7
8
9
10
let rec nb_arrets etages =
	print_int etages;
	print_string " ";
	if etages = 0
		then 0
		else succ (nb_arrets(Random.int etages));
		in
 
   Random.self_init();
   print_int (nb_arrets 99);

ca va pas exemple afficher:

Code :

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

99 75 65 32 15 0 5

le dernier chiffre c'est le nombres d'étages visité avant l'étage ZERO (rez-de-chaussé). Et c'est là que je ne comprends pas ! D'où sort ce chiffre ?
J'ai beau regarder le code et je ne vois que le code qui permet de trouver les étages de manière aléatoire jusqu'à zéro. Je ne vois pas où est défini le calcul du nombre d'étapes (d'étages visités avant le RDC) (ici 5)

Quelqu'un peut-il m'aider ?


Thx !!!

[SpiceGuid]

Ce code modifié calcule exactement la même chose, mais sans afficher les arrêts de l'ascenseur:

Code :

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

1
2
3
4
5
6
let rec nb_arrets etages =
  if etages = 0 then 0
  else 1 + nb_arrets(Random.int etages)
in
  Random.self_init();
  print_int(nb_arrets 99);;

Dans ton exemple 5 est le résultat de 1 + 1 + 1 + 1 + 1 + 0.

[gasche]

"succ n" vaut "n+1". C'est dans le "succ" de ton code que le calcul se fait : à chaque fois il renvoie un "nombre d'arrêt" de plus (et dans le cas 0, tu renvoies 0, "then 0").

Le code de SpiceGuid est effectivement plus clair.