fix names for ski combinators

This commit is contained in:
Stephen Webber 2016-07-23 18:34:57 -05:00
parent 5c515bd386
commit 033d0ae477

View File

@ -6,6 +6,6 @@ data Expr
| Lam Name Expr | Lam Name Expr
s, k, i :: Expr s, k, i :: Expr
s = Lam "x" (Var "x") i = Lam "x" (Var "x")
k = Lam "x" (Lam "y" (Var "x")) k = Lam "x" (Lam "y" (Var "x"))
i = Lam "x" (Lam "y" (Lam "z" (App (App (Var "x") (Var "z")) (App (Var "y") (Var "z"))))) s = Lam "x" (Lam "y" (Lam "z" (App (App (Var "x") (Var "z")) (App (Var "y") (Var "z")))))