From ee9b0f357d959a8306fab36ebea6ee1efeb1c70e Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Mon, 3 Nov 2025 19:50:08 +0100 Subject: fix bool and fac examples --- lambda-calcul/haskell/bool.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lambda-calcul/haskell/bool.lisp') 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))) -- cgit v1.3.1