Mercurial > lasercutter

diff src/clojureDemo/project-euler.clj~ @ 1:6d9bdaf919f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojureDemo source
author Robert McIntyre <rlm@mit.edu>
date Fri, 20 Aug 2010 00:32:44 -0400
parents
children
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojureDemo/project-euler.clj~	Fri Aug 20 00:32:44 2010 -0400
     1.3 @@ -0,0 +1,16 @@
     1.4 +
     1.5 +
     1.6 +(ns clojureDemo.project-euler)
     1.7 +
     1.8 +
     1.9 +(use 'clojureDemo.rlm)
    1.10 +(rlm-base-load)
    1.11 +
    1.12 +(defn range-sum 
    1.13 +"calculates the sum of a range.  Takes the exact same arguments
    1.14 + as clojure.core/range"
    1.15 +([end]
    1.16 +   (/ (* end (- end 1) ) 2)))
    1.17 +
    1.18 +
    1.19 +