15 lines
531 B
CoffeeScript
15 lines
531 B
CoffeeScript
lisp = require './interpreter.coffee'
|
|
{read, readForms} = require '../chapter1/reader'
|
|
{inspect} = require 'util'
|
|
|
|
ast = read("(log (begin (set! fact (lambda (x) (if (eq? x 0) 1 (* x (fact (- x 1)))))) (fact 5)))")
|
|
|
|
# ast = read("(begin (if (lt 4 2) (+ 4 1) (+ 2 1)))")
|
|
# ast = read("(begin (set! fact 4) fact)")
|
|
# ast = read("(begin ((lambda (t) (if (lt t 2) (+ 4 1) (+ 2 1))) 1))")
|
|
|
|
# ast = read("(begin (set! fact (lambda (x) (+ x x))) (fact 5))")
|
|
# ast = read("(begin (set! fact (lambda (x) (- x 4))) (fact 5))")
|
|
|
|
(lisp ast)
|