diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-20 15:31:25 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-20 15:31:25 +0000 |
| commit | 0ecd9e608ced18f70f465c986d6519e8e95b0b6b (patch) | |
| tree | 32214f9e93eecbb6b1cc4aea12af1eba93f19ab7 /program/exp.prim | |
| parent | 3f72d28b7b348d441dde0e66e848ed4d7c16f5ba (diff) | |
Improve syntactic sugar.
Sugar makes programs nicer to write.
Diffstat (limited to 'program/exp.prim')
| -rw-r--r-- | program/exp.prim | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/program/exp.prim b/program/exp.prim index 3c07ec1..8af7c3f 100644 --- a/program/exp.prim +++ b/program/exp.prim @@ -1,3 +1,3 @@ -let add (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => y; S k => ~(S k)} in +let add (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => y; S k => suc k} in let mul (x : Nat) (y : Nat) : Nat = foldcase x by {Z u => 0; S k => add y k} in \x, y => foldcase y by {Z u => 1; S k => mul x k} |