Skip to content

Instantly share code, notes, and snippets.

@lenaschoenburg
Created January 31, 2013 15:47
Show Gist options
  • Save lenaschoenburg/4683838 to your computer and use it in GitHub Desktop.
Save lenaschoenburg/4683838 to your computer and use it in GitHub Desktop.
(defn sq [x]
(* x x))
(- (sq (reduce + (range 1 101))) (reduce + (map sq (range 1 101))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment