operators in case patterns

2024-09-14 21:36:03 -07:00
parent 086f3d6541
commit ac7a61e1fd
7 changed files with 47 additions and 32 deletions
--- a/newt/oper.newt
+++ b/newt/oper.newt
@@ -42,3 +42,7 @@ blah x y z = (x, y, z)

 curryPlus : Pair Int Int -> Int
 curryPlus (a, b) = a + b
+
+caseCurry : Pair Int Int -> Int
+caseCurry x = case x of
+  (a,b) => a + b