Name:
Anonymous
2010-12-27 20:55
parseWS xs -> all \Space xs
parseNumber [@xs] -> if (all digit? xs) then asBase 10 xs
parseSymbol [@xs] -> if (all alpha? xs) then asSymbol xs
parseRest x -> x.{[] => 'nil; [@!WS] => 'nil
[\Space @!WS e:!Sexp es:!Rest] => if es=='nil [e] [e@es]}
parseList xs -> parseRest [\Space @xs]
parseSexp x -> x.{[e:!Number]=>e; [e:!Symbol]=>e
[\( @!WS es:!List \)] => e}
Name:
Anonymous
2010-12-29 7:11
>>30
Truth is much too complicated to allow anything but approximations. -- John von Neumann