tak.clj

(ns tak)

(defn tak [x y z]
  (let [x (int x)
	y (int y)
	z (int z)]
    (if (<= x y)
      z
      (recur (tak (dec x)
		  y z)
	     (tak (dec y)
		  z x)
	     (tak (dec z)
		  x y)))))

(time (dotimes [_ 1000]
	(tak 24 16 8)))