summaryrefslogtreecommitdiff
path: root/rust/sample/test02/input
diff options
context:
space:
mode:
authorArnaud Bailly <arnaud.bailly@iohk.io>2024-09-30 15:07:30 +0200
committerArnaud Bailly <arnaud.bailly@iohk.io>2024-09-30 15:07:30 +0200
commit7336b25d74ad0d8b3b15444582afc082ee30562a (patch)
tree16ab2917574f86d65ab5b8746a8ad4170c25f61d /rust/sample/test02/input
parent96d6a0a2b562f81c5c14532487ce03a1a9065e6b (diff)
downloadlambda-nantes-7336b25d74ad0d8b3b15444582afc082ee30562a.tar.gz
Add some documentation and a sample for pairs
Diffstat (limited to 'rust/sample/test02/input')
-rw-r--r--rust/sample/test02/input6
1 files changed, 6 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))))