CDE

2013-04-10 16:57:12 -07:00 · 2013-04-10 16:57:12 -07:00 · 764da6cbbb
commit 764da6cbbb
parent 518da4a923
6144 changed files with 83610 additions and 11 deletions
--- a/Task/Element-wise-operations/Clojure/element-wise-operations.clj
+++ b/Task/Element-wise-operations/Clojure/element-wise-operations.clj
@ -0,0 +1,8 @@
+(defn initial-mtx [i1 i2 value]
+  (vec (repeat i1 (vec (repeat i2 value)))))
+
+(defn operation [f mtx1 mtx2]
+  (if (vector? mtx1)
+    (vec (map #(vec (map f %1 %2)) mtx1 mtx2)))
+    (recur f (initial-mtx (count mtx2) (count (first mtx2)) mtx1) mtx2)
+  ))