diff options
| author | Arnaud Bailly <arnaud.bailly@iohk.io> | 2024-10-01 09:47:25 +0200 |
|---|---|---|
| committer | Arnaud Bailly <arnaud.bailly@iohk.io> | 2024-10-01 09:47:25 +0200 |
| commit | 055bd8d02ed6f9e97369fa1f77d918ea255dcb99 (patch) | |
| tree | 04178b58fc44b2ec2a9e411590915f40567b6e4a | |
| parent | 7336b25d74ad0d8b3b15444582afc082ee30562a (diff) | |
| download | lambda-nantes-055bd8d02ed6f9e97369fa1f77d918ea255dcb99.tar.gz | |
Add test for natural numbers addition
| -rw-r--r-- | rust/sample/test03/input | 12 | ||||
| -rw-r--r-- | rust/sample/test03/output | 9 |
2 files changed, 21 insertions, 0 deletions
diff --git a/rust/sample/test03/input b/rust/sample/test03/input new file mode 100644 index 0000000..a23f8c6 --- /dev/null +++ b/rust/sample/test03/input @@ -0,0 +1,12 @@ +(def zero (lam (f s) s)) +(def succ (lam (n f s) (f (n f s)))) + +(def one (succ zero)) +(def two (succ one)) +(def three (succ two)) +(def four (succ three)) +(def five (succ four)) + +(def plus (lam (a b) (a succ b))) + +(plus one three) diff --git a/rust/sample/test03/output b/rust/sample/test03/output new file mode 100644 index 0000000..578d298 --- /dev/null +++ b/rust/sample/test03/output @@ -0,0 +1,9 @@ +true +true +true +true +true +true +true +true +five |