Discussion :

[Unglaublicher]

Bonjour,
j'ai essayé de résoudre l'exemple classique des tours de hanoi en ocaml, j'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
let deplacement position1 position2 =
  print_string ("bouge le disque de " ^ position1 ^ " vers " ^ position2);
  print_newline ();;
let rec hanoi debut milieu arrivee n = function
  | 0 -> ()
  | n ->
    hanoi debut arrivee milieu (n - 1) ;
    deplacement debut arrivee;
    hanoi milieu debut arrivee (n - 1) ;;
hanoi "A" "B" "C" 4;;

j'obtiens l'erreur que je ne comprends pas :

  hanoi debut arrivee milieu (n - 1) ;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Warning 5: this function application is partial,
                         maybe some arguments are missing.
                                                    Characters 145-179:
                           hanoi milieu debut arrivee (n - 1) ;;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This expression has type int -> unit
    but an expression was expected of type unit
  >>>hanoi "A" "B" "C" 4;;
Characters 0-5:
  hanoi "A" "B" "C" 4;;
^^^^^
Error: Unbound value hanoi
       >>>    ^
    Error: Syntax error
                       >>>hanoi "A" "B" "C" 4;;
Characters 0-5:
  hanoi "A" "B" "C" 4;;
^^^^^
Error: Unbound value hanoi

Je ne comprends pas, je pense pourtant avoir donné tout les argument.
Pouvez-vous m'aider?

[SpiceGuid]

Je ne comprends pas

C'est vrai qu'Ocaml n'est pas tendre avec les débutants.

Le plus simple pour un débutant c'est de ne pas utiliser ce qu'il comprend mal. En général un grand débutant comprend mal match et encore plus mal function.

À quoi servent match / function ? À déconstruire une donnée algébrique. Est-ce que n:int est une donnée algébrique ? Non, c'est juste un entier et donc tu peux utiliser if pour le déconstruire.

Code ocaml :

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

1
2
3
4
5
6
7
8
9
10
let deplacement position1 position2 =
  print_string ("bouge le disque de " ^ position1 ^ " vers " ^ position2);
  print_newline ();;
let rec hanoi debut milieu arrivee n =
  if n > 0 then begin
    hanoi debut arrivee milieu (n - 1);
    deplacement debut arrivee;
    hanoi milieu debut arrivee (n - 1)
  end;;
hanoi "A" "B" "C" 4;;

Et voilà ça n'est pas plus compliqué que ça. Il n'y a pas besoin de match / function.

Il faudrait presque le mettre dans une FAQ :

1. utiliser if partout où c'est possible.
2. utiliser match / function uniquement pour déconstruire une donnée algébrique.
3. pareil avec when, ne l'utilisez pas là où un simple if ferait l'affaire.

[Unglaublicher]

Merci de votre réponse,
mais le but ici était bel et bien d'utiliser function, pas vraiment le problème de hanoi que j'avais déja résolu dans un autre language.
J'ai trouvé la solution a mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
let deplacement position1 position2 =
  print_string ("bouge le disque de " ^ position1 ^ " vers " ^ position2);
  print_newline ();;
let rec hanoi debut milieu arrivee = function
  | 0 -> ()
  | n ->
    hanoi debut arrivee milieu (n - 1) ;
    deplacement debut arrivee;
    hanoi milieu debut arrivee (n - 1) ;;
hanoi "A" "B" "C" 4;;

Merci en tout cas pour vos conseils !

[SpiceGuid]

Okay, j'ai appliqué le principe KISS alors que ça n'était pas la réponse attendue

À l'avenir je vais tâcher de modifier ton code le moins possible afin de mieux respecter tes choix personnels (au lieu d'imposer les miens).