用 c 语言实现的 lisp 解释器,基本实现了 lisp 的特性。功能比较简单,代码主要分成三个部分:
- 词法分析。将输入的文件流转化成单词数组。
- 语法分析。根据单词数组,生成 AST 。
- 执行部分。这里参考了 SICP 中的第四章中, eval 和 apply 的讲解。
用它写出来的代码如下, 实现了 Fibonacci 函数:
;;第一种递归求 fibonacci 的方法
(define fib-1
(lambda (n)
(cond ((= n 0) 0)
((= n 1) 1)
(else (+ (fib-1 (- n 1))
(fib-1 (- n 2)))))))
;;第二种, 尾递归
(define fib-iter
(lambda (a b count)
(if (= count 0)
b
(fib-iter (+ a b) a (- count 1)))))
(define fib-2
(lambda (n)
(fib-iter 1 0 n)))
(fib-2 100)
项目代码在 https://github.com/luohaha/Dior 。欢迎交流,求 star 。