apl: compose f∘g (+9 tests, 182/182)

2026-05-06 23:03:14 +00:00
parent d570da1dea
commit 3d2bdc52b5
3 changed files with 69 additions and 2 deletions
--- a/lib/apl/runtime.sx
+++ b/lib/apl/runtime.sx
@@ -1062,3 +1062,7 @@
 (define apl-commute (fn (f x) (f x x)))

 (define apl-commute-dyadic (fn (f x y) (f y x)))
+
+(define apl-compose (fn (f g x) (f (g x))))
+
+(define apl-compose-dyadic (fn (f g x y) (f x (g y))))