apl: commute f⍨ (+10 tests, 173/173)

2026-05-06 22:36:11 +00:00
parent d67e04a9ad
commit d570da1dea
3 changed files with 69 additions and 2 deletions
--- a/lib/apl/runtime.sx
+++ b/lib/apl/runtime.sx
@@ -1058,3 +1058,7 @@
                              (rest pairs))))
                        (range 0 b-post-size)))
                    (range 0 a-pre-size)))))))))))
+
+(define apl-commute (fn (f x) (f x x)))
+
+(define apl-commute-dyadic (fn (f x y) (f y x)))