case syntaxとlet* syntaxに対応した。 パーサにparseLetstarとparseCaseを追加した。 対話環境でテストしてみる。 # let e1 = parse "(case (* 2 3) ((2 3 5 7) 'prime) ((1 4 6 8 9) 'composit))";; val e1 : Parser.exp = IfExp (ApplyExp (VarExp "memv"…