demo.lsp

来自「lisp下面编写的meval的lisp语言解释器」· LSP 代码 · 共 13 行

; fichier pour tester meval

(defun fibo (x) 
  (if (= 1 x)
      0
    (if (= 2 x)
	1
      (+ (fibo (- x 1)) (fibo (- x 2))))))

(defun facto (x)
  (if (= 1 x)
      1
    (* x (facto (- x 1)))))