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
s, k, i :: Expr
s = Lam "x" (Var "x")
i = Lam "x" (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")))))