From fdf35536b66499884dd5b4e1740ac67e5cebb1a2 Mon Sep 17 00:00:00 2001 From: tzlil Date: Fri, 14 Apr 2023 23:46:53 +0300 Subject: add homework material --- tests/examples/pairs-fst-snd.lam | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 tests/examples/pairs-fst-snd.lam (limited to 'tests/examples/pairs-fst-snd.lam') diff --git a/tests/examples/pairs-fst-snd.lam b/tests/examples/pairs-fst-snd.lam new file mode 100644 index 0000000..19791ad --- /dev/null +++ b/tests/examples/pairs-fst-snd.lam @@ -0,0 +1,15 @@ +(\ pair fst snd . + + fst (snd (pair (pair a b) (pair c d))) + + -- Should reduce to c +) + +-- pair +(\ x y f . f x y) + +-- fst +(\ p . p (\ x y . x)) + +-- snd +(\ p . p (\ x y . y)) -- cgit 1.4.1