Towers of Hanoi: Difference between revisions
→{{header|Clojure}}
Line 844:
=={{header|Clojure}}==
===Side-Effecting Solution===
<lang lisp>(defn towers-of-hanoi [n from to via]
(when (pos? n)
Line 849 ⟶ 850:
(printf "Move from %s to %s\n" from to)
(recur (dec n) via to from)))</lang>
===Lazy Solution===
<lang lisp>(defn towers-of-hanoi [n from to via]
(when (pos? n)
(lazy-cat (towers-of-hanoi (dec n) from via to)
(cons [from '-> to]
(towers-of-hanoi (dec n) via to from)))))</lang>
=={{header|COBOL}}==
| |||