diff options
| author | Arnaud Bailly <arnaud.bailly@iohk.io> | 2024-09-30 15:07:30 +0200 |
|---|---|---|
| committer | Arnaud Bailly <arnaud.bailly@iohk.io> | 2024-09-30 15:07:30 +0200 |
| commit | 7336b25d74ad0d8b3b15444582afc082ee30562a (patch) | |
| tree | 16ab2917574f86d65ab5b8746a8ad4170c25f61d /rust/sample/test02 | |
| parent | 96d6a0a2b562f81c5c14532487ce03a1a9065e6b (diff) | |
| download | lambda-nantes-7336b25d74ad0d8b3b15444582afc082ee30562a.tar.gz | |
Add some documentation and a sample for pairs
Diffstat (limited to 'rust/sample/test02')
| -rw-r--r-- | rust/sample/test02/input | 6 | ||||
| -rw-r--r-- | rust/sample/test02/output | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/rust/sample/test02/input b/rust/sample/test02/input new file mode 100644 index 0000000..81a0443 --- /dev/null +++ b/rust/sample/test02/input @@ -0,0 +1,6 @@ +(def pair (lam (a b f) (f a b))) + +(def fst (lam p (p (lam ( a b) a)))) +(def snd (lam p (p (lam ( a b) b)))) + +(fst (snd (pair 1 (pair 2 0)))) diff --git a/rust/sample/test02/output b/rust/sample/test02/output new file mode 100644 index 0000000..c61e10e --- /dev/null +++ b/rust/sample/test02/output @@ -0,0 +1,4 @@ +true +true +true +2 |