Towers of Hanoi: Difference between revisions
Content added Content deleted
(→{{header|Fortran}}: +langtag) |
(Added a Clojure implementation.) |
||
Line 118: | Line 118: | ||
} |
} |
||
} |
} |
||
=={{header|Clojure}}== |
|||
(defn towers-of-hanoi [n from to via] |
|||
(if (= n 1) |
|||
(println (format "Move from %s to %s" from to)) |
|||
(do |
|||
(towers-of-hanoi (- n 1) from via to) |
|||
(println (format "Move from %s to %s" from to)) |
|||
(recur (- n 1) via to from)))) |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |