Merge pull request #87 from halyconic/master

fix names for ski combinators
This commit is contained in:
Stephen Diehl 2016-07-24 12:32:53 -04:00 committed by GitHub
commit fc2be3da4b

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")))))