diff --git a/README.md b/README.md index a8620eb..346184a 100644 --- a/README.md +++ b/README.md @@ -1 +1,3 @@ -(define fac (lambda (n) (if ((eq n 0) 1) (1 (* n (fac (+ n -1))))))) +* (define fac (lambda (n) (if ((eq n 0) 1) (1 (* n (fac (+ n -1))))))) +* (if ((eq 0 1) 0) ((eq 1 1) 1)) +* (if ((eq 0 1) 0) ((eq 0 2) 0) (1 (+ 1 2 3 4)))