langs/Clojure/rdm.clj

14 lines
345 B
Clojure

;; File: rdm.clj
;; Author: Collin J. Doering <rekahsoft@gmail.com>
;; Description: A rdm file for playing around with
(map (fn [x] (* x x)) '(0 1 2 3 4 5))
;; Example factorial function with accumulator (aridity overloading)
(defn factorial
([n]
(factorial n 1))
([n acc]
(if (= n 0) acc
(recur (dec n) (* acc n)))))