(* 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

This document was generated using caml2html