Recursive solution to Ogres of Hanoi

ogres-of-hanoi.clj

(defn move [from to]
  (.say this "move" (to-array [from to])))

(defn hanoi [num from to via]
  (if (= num 1)
    (move from to)
    (do
      (hanoi (dec num) from via to)
      (move from to)
      (hanoi (dec num) via to from))))

(hanoi 5 2 1 3)

ogres-of-hanoi.js

var that = this;

function hanoi(n, from, to, via) {
    if (n === 1) {
        that.say("move", [from, to]);
    } else {
        hanoi(n-1, from, via, to);
        that.say("move", [from, to]);
        hanoi(n-1, via, to, from);
    }
}

hanoi(5, 2, 3, 1);