lexicaltest.clj

(def fib-var-obj 
  (fn [x]
    (if (< x 2)
      1
      (+ (fib-var-obj (- x 1))
         (fib-var-obj (- x 2))))))

(defn fib-lex-obj [x]
  (if (< x 2)
    1
    (+ (fib-lex-obj (- x 1))
       (fib-lex-obj (- x 2)))))

(def fib-var-prim
  (fn ^long [^long x]
    (if (< x 2)
      1
      (+ (fib-var-prim (- x 1))
         (fib-var-prim (- x 2))))))

(defn fib-lex-prim ^long [^long x]
  (if (< x 2)
    1
    (+ (fib-lex-prim (- x 1))
       (fib-lex-prim (- x 2)))))

(dotimes [i 3]
  (println "\nRun" i)
  (doseq [[n f] [["var-obj" fib-var-obj]
                 ["lex-obj" fib-lex-obj]
                 ["var-prim" fib-var-prim]
                 ["lex-prim" fib-lex-prim]]]
    (print n "result, time: ")
    (time (print (f 35) ","))))