What is better?: factorial

My solution:
--------------------

(fn [n]
  (loop [k n v 1]
    (if (= 1 k)
      v
      (recur (dec k) (* v k)))))

someone elses solution
---------------------------
((fn [r]
  ((fn [f] (f f))
    (fn [y]
      (r (fn [x] ((y y) x))))))
  (fn [fact]
    (fn [n]
      (if
        (= 0 n) 1
        (* n (fact (- n 1)))))))