Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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)
+  ))