Visible infix info from imports

2024-10-22 22:08:34 -07:00
parent 19b42d72e5
commit fe323618e7
8 changed files with 79 additions and 60 deletions
--- a/aoc2023/Lib.newt
+++ b/aoc2023/Lib.newt
@@ -131,3 +131,8 @@ foldl f acc (x :: xs) = foldl f (f acc x) xs
 map : {A B : U} -> (A -> B) -> List A -> List B
 map f Nil = Nil
 map f (x :: xs) = f x :: map f xs
+
+
+infixl 7 _._
+_._ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
+(f . g) x = f ( g x)