2014-04-04 06:22:17 +00:00
|
|
|
;; 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))
|
|
|
|
|
2015-03-02 09:05:35 +00:00
|
|
|
;; Example factorial function with accumulator (aridity overloading)
|
2014-04-04 06:22:17 +00:00
|
|
|
(defn factorial
|
|
|
|
([n]
|
|
|
|
(factorial n 1))
|
|
|
|
([n acc]
|
|
|
|
(if (= n 0) acc
|
|
|
|
(recur (dec n) (* acc n)))))
|