Lisp-Evaluator

Lisp Evaluator

实现了 Lisp 的一些特性

node ./bin/exec.js /your/file

example

node ./bin/exec.js ./test/test.scm

变量定义

(define a 1) a ; 1
(define a (+ 1 1)) ;2

函数定义

(define (squares arg) 
  (* arg arg))
(define (sum-of-squares x y)
  (+ (squares x) (squares y)))
(sum-of-squares 3 4) ;25

闭包

(define (a) 
  (define a (+ 1 1))
  (define (b) a))
(define b (a))
(b) ;2

高阶函数

(define (fun cb) (cb 2))
(define (fn arg) (* 10 arg))
(fun fn) ;20

递归调用

(define (fact n)
  (if (= n 1)
      1
      (+ n (fact (- n 1)))))

(fact 10) ; 55

ChauMing/Lisp-Evaluator