(defmulti fib #{1 2})
(defmethod fib :default [_] 1)
(defmethod fib nil [arg]
  (+ (fib (- arg 1))
     (fib (- arg 2))))

(dotimes [i 10]
   (println (fib (inc i))))

Generated by Phil Hagelberg using scpaste at Mon Apr 27 12:44:03 2009. PDT. (original)