mgsnova/crisp

View on GitHub
examples/factorial.crisp

Summary

Maintainability
Test Coverage
(def factorial
  (fn [n]
    (loop [cnt n acc 1]
      (if (= 0 cnt)
        acc
        (recur (- cnt 1) (* acc cnt))))))