progs/fun-tests/hanoi.fun
author Christian Urban <christian.urban@kcl.ac.uk>
Mon, 26 Oct 2020 10:24:59 +0000
changeset 790 31a9f89776a3
parent 742 b5b5583a3a08
permissions -rw-r--r--
updated

// towers of hanoi in Fun

def hanoi(n, a, b, c) =
  if n != 0 then {
    hanoi (n - 1) a c b;
    print_endline ("Move disk from pole " ^ (show a) ^ " to pole " ^ (show b));
    hanoi (n - 1) c b a
  } else write("")

impure $ hanoi 4 1 2 3;;