diff options
Diffstat (limited to 'lambda-calcul/haskell/bool.lisp')
| -rw-r--r-- | lambda-calcul/haskell/bool.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lambda-calcul/haskell/bool.lisp b/lambda-calcul/haskell/bool.lisp index 250c38a..7a1215d 100644 --- a/lambda-calcul/haskell/bool.lisp +++ b/lambda-calcul/haskell/bool.lisp @@ -1,5 +1,8 @@ (let ((False (lam (f t) f)) (True (lam (f t) t)) + (Not (lam (b) (b True False))) + (And (lam (a b) (a False b))) + (Or (lam (a b) (a b True))) (If (lam (b x y) (b x y))) (Zero (lam (z s) z)) (Succ (lam (n z s) (s n))) @@ -7,4 +10,4 @@ (Two (Succ One)) (Three (Succ Two)) (IsZero (lam (n) (n True (lam (m) False))))) - (IsZero Two)) + (Or (IsZero One) (IsZero Two))) |