Skip to content

Instantly share code, notes, and snippets.

@boxp

boxp/problem6.clj

Created June 22, 2013 14:21
Show Gist options
  • Save boxp/5841046 to your computer and use it in GitHub Desktop.
Save boxp/5841046 to your computer and use it in GitHub Desktop.
Download ZIP
clojureでproject-eulerに挑戦 〜六問目〜
Raw
problem6.clj
(print
(let [a (reduce + (range 1 101))]
(-
(* a a)
(reduce + (map #(* % %) (range 1 101))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment