Evaluator さらに，スタックも type Stack = [Stackable] から type Stack = [Stackable] data Stackable = Pushed Literal | Opname Word | Code AST deriving Show と変更します．つまり「新しいオペレータの名前」と「コードのブロック」もスタックに積め…

Parserの改造 新しいオペレータを定義する際に /a { 1 2 } def という構文を使って，これをパースして [NewWord "a" [Push 1 ,Push 2]] というASTを構築しました．これを評価すると Interp {stack = [], dict = fromList [("a",[Push 1,Push 2])]} という状…