(* Les tours de Hanoï *) (* Déplace n disques de la colonne a vers la colonne b, en utilisant la colonne c comme temporaire. *) let rec hanoi n a b c = if n > 0 then begin hanoi (n-1) a c b; Printf.printf "je déplace un disque de %d à %d\n" a b; hanoi (n-1) c b a end let n = read_int () let () = hanoi n 1 2 3