Skip to content

Instantly share code, notes, and snippets.

@aphyr

aphyr/multi-dimension.clj

Created December 21, 2021 20:31
Show Gist options
  • Save aphyr/d0fd20d097f1a6084807be60cd47b48a to your computer and use it in GitHub Desktop.
Save aphyr/d0fd20d097f1a6084807be60cd47b48a to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. aphyr created this gist Dec 21, 2021.
    11 changes: 11 additions & 0 deletions multi-dimension.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,11 @@
    user=> (-> '(dt/loopr [sum 0] [x xs, y ys] (recur (+ sum x y))) macroexpand pprint)
    (let* [sum 0
    sum (clojure.core/reduce
    (clojure.core/fn reduce-x-2690 [sum x]
    (clojure.core/reduce (clojure.core/fn reduce-y-2692 [sum y]
    (. clojure.lang.Numbers (add (. clojure.lang.Numbers (add sum x)) y)))
    sum
    ys))
    sum
    xs)]
    sum)
    8 changes: 8 additions & 0 deletions single-dimensjon.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,8 @@
    user=> (-> '(dt/loopr [sum 0] [x xs] (recur (+ sum x))) macroexpand pprint)
    (let* [sum 0
    sum (clojure.core/reduce
    (clojure.core/fn reduce-x-2686 [sum x]
    (. clojure.lang.Numbers (add sum x)))
    sum
    xs)]
    sum)