apl: each f¨ monadic + dyadic (+14 tests, 139/139)

lib/apl/runtime.sx

@@ -961,3 +961,38 @@
                           (rest col))))
                     (range 0 inner-size)))
                 (range 0 first-dim)))))))))
+
+(define
+  apl-each
+  (fn
+    (f arr)
+    (let
+      ((shape (get arr :shape)) (ravel (get arr :ravel)))
+      (make-array
+        shape
+        (map (fn (x) (disclose (f (apl-scalar x)))) ravel)))))
+
+(define
+  apl-each-dyadic
+  (fn
+    (f a b)
+    (cond
+      ((and (scalar? a) (scalar? b)) (apl-scalar (disclose (f a b))))
+      ((scalar? a)
+        (make-array
+          (get b :shape)
+          (map (fn (x) (disclose (f a (apl-scalar x)))) (get b :ravel))))
+      ((scalar? b)
+        (make-array
+          (get a :shape)
+          (map (fn (x) (disclose (f (apl-scalar x) b))) (get a :ravel))))
+      (else
+        (if
+          (equal? (get a :shape) (get b :shape))
+          (make-array
+            (get a :shape)
+            (map
+              (fn (x y) (disclose (f (apl-scalar x) (apl-scalar y))))
+              (get a :ravel)
+              (get b :ravel)))
+          (error "length error: shape mismatch"))))))