22 lines
731 B
CoffeeScript
22 lines
731 B
CoffeeScript
|
{listToString, listToVector, pairp, cons, car, cdr, caar, cddr, cdar, cadr, caadr, cadar, caddr, nilp, nil, setcdr, metacadr} = require "cons-lists/lists"
|
||
|
|
|
||
|
|
ntype = (node) -> car node
|
||
|
|
nvalu = (node) -> cadr node
|
||
|
|
|
||
|
|
evlis = (exps, d) ->
|
||
|
|
if (pairp exps) then evaluate((car exps), d) + " " + evlis((cdr exps), d) else ""
|
||
|
|
|
||
|
|
indent = (d) ->
|
||
|
|
([0..d].map () -> " ").join('')
|
||
|
|
|
||
|
|
evaluate = (e, d = 0) ->
|
||
|
|
[type, exp] = [(ntype e), (nvalu e)]
|
||
|
|
if type == "symbol" then exp
|
||
|
|
else if type in ["number", "boolean"] then exp
|
||
|
|
else if type == "string" then '"' + exp + '"'
|
||
|
|
else if type == "list" then "\n" + indent(d) + "(" + evlis(exp, d + 2) + ")"
|
||
|
|
else throw "Don't recognize a #{type}"
|
||
|
|
|
||
|
|
module.exports = (c) -> evaluate c, 0
|
||
|
|
|