Solve exercise 3
This commit is contained in:
parent
e710a68bf3
commit
14fdbdd074
|
@ -33,3 +33,10 @@ pretty x = case x of
|
|||
-- ((Lx.(x z)) (Ly.(x y)))
|
||||
-- ((Lx.(x z)) (Ly.(w (Lw.(((w y) z) 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)))
|
||||
|
|
Loading…
Reference in a new issue