21 lines
749 B
CoffeeScript
21 lines
749 B
CoffeeScript
|
{listToString, listToVector, pairp, cons, car, cdr, caar, cddr, cdar, cadr, caadr, cadar, caddr, nilp, nil, setcdr, metacadr} = require "cons-lists/lists"
|
||
|
|
|
||
|
|
evlis = (exps, d) ->
|
||
|
|
if (pairp exps) then evaluate((car exps), d) + " " + evlis((cdr exps), d) else evaluate(exps, d)
|
||
|
|
|
||
|
|
indent = (d) ->
|
||
|
|
([0..d].map () -> " ").join('')
|
||
|
|
|
||
|
|
evaluate = (e, d = 0) ->
|
||
|
|
t = typeof e
|
||
|
|
if (pairp e) then "\n" + indent(d) + "(" + evlis(e, d + 2) + ")"
|
||
|
|
else if (nilp e) then "()"
|
||
|
|
else if t is "boolean" then (if e then "#t" else "#f")
|
||
|
|
else if t is "string"
|
||
|
|
if e.length > 0 and e[0] == '"' then '"' + e + '"' else e
|
||
|
|
else if t is "number" then e
|
||
|
|
else if t is "function" then e.toString()
|
||
|
|
else e.toString()
|
||
|
|
|
||
|
|
module.exports = (c) -> evaluate c, 0
|