2011-10-23から1日間の記事一覧

「Write Yourself a Scheme in 48 Hours」 を写経してみる(6) : 評価その2

Write Yourself a Scheme in 48 Hours/Evaluation, Part 2 http://jonathan.tang.name/files/scheme_in_48/code/listing6.3.hs primitives :: [(String, [LispVal] -> ThrowsError LispVal)] primitives = [("+", numericBinop (+)), ("-", numericBinop (-)…