Mercurial > lasercutter
annotate src/clojureDemo/project-euler.clj~ @ 1:6d9bdaf919f7
added clojureDemo source
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 20 Aug 2010 00:32:44 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@1 | 1 |
| rlm@1 | 2 |
| rlm@1 | 3 (ns clojureDemo.project-euler) |
| rlm@1 | 4 |
| rlm@1 | 5 |
| rlm@1 | 6 (use 'clojureDemo.rlm) |
| rlm@1 | 7 (rlm-base-load) |
| rlm@1 | 8 |
| rlm@1 | 9 (defn range-sum |
| rlm@1 | 10 "calculates the sum of a range. Takes the exact same arguments |
| rlm@1 | 11 as clojure.core/range" |
| rlm@1 | 12 ([end] |
| rlm@1 | 13 (/ (* end (- end 1) ) 2))) |
| rlm@1 | 14 |
| rlm@1 | 15 |
| rlm@1 | 16 |