Solve exercise 3

This commit is contained in:
Manuel Thalmann 2024-06-17 00:07:02 +02:00
parent e710a68bf3
commit 14fdbdd074

View file

@ -33,3 +33,10 @@ pretty x = case x of
-- ((Lx.(x z)) (Ly.(x y))) -- ((Lx.(x z)) (Ly.(x y)))
-- ((Lx.(x z)) (Ly.(w (Lw.(((w y) z) x))))) -- ((Lx.(x z)) (Ly.(w (Lw.(((w y) z) x)))))
-- (Lx.((x y) (Lx.(y x)))) -- (Lx.((x y) (Lx.(y x))))
--------------------
-- Exercise 3
--------------------
-- (Lx.((x *z*) (Ly.(x y))))
-- ((Lx.(x *z*)) Ly.(*w* (Lw.(((w y) *z*) *x*))))
-- Lx.((x "y") (Lx.("y" x)))