cwtests/cw05/hanoi.fun
changeset 856 23273e3a120f
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cwtests/cw05/hanoi.fun	Fri Dec 03 21:56:55 2021 +0000
@@ -0,0 +1,13 @@
+// Towers of Hanoi in Fun
+
+def hanoi(n: Int, a: Int, b: Int, c: Int) : Void =
+  if n != 0 then {
+    hanoi(n - 1, a, c, b);
+    print_int(a);
+    print_char('-'); print_char('>'); // prints out "->"
+    print_int(b);
+    print_char('\n');
+    hanoi(n - 1, c, b, a)
+  } else skip;
+
+hanoi(4,1,2,3)
\ No newline at end of file