obj_to_func_1.clj

(ns number-analyzer.core)

(declare print-factorials)

(defn -main [& args]
  (print-factorials [0 1 2 3 4 5 10]))
    ; Prints:
    ; 0! = 1
    ; 1! = 1
    ; 2! = 2
    ; 3! = 6
    ; 4! = 24
    ; 5! = 120
    ; 10! = 3628800

(defn- factorial [n]
  (loop [n   n
         acc 1]
    (if (< n 2)
      acc
      (recur (dec n) (* acc n)))))

(defn print-factorials [numbers]
  (doseq [num numbers]
    (println (str num "! = " (factorial num)))))