clisp/README.md
2024-09-02 23:13:09 +09:00

4 lines
153 B
Markdown

* (define fac (lambda (n) (if ((== n 0) 1) (1 (* n (fac (+ n -1)))))))
* (if ((== 0 1) 0) ((== 1 1) 1))
* (if ((== 0 1) 0) ((== 0 2) 0) (1 (+ 1 2 3 4)))