Parsec の練習のために、プログラム言語を作りました。今の流行りに乗って、 VM で動く言語です。 VM として、ポータビリティや命令のシンプルさを考慮して、 Brainf*ck を採用しました。 http://shinh.skr.jp/koneta/sbf.hs 以下のコードが (let (x (getchar)) (while x (if (> x 64) (if (> 91 x) (+= x 32))) (putchar x) (= x (getchar)) ))以下のように。 ,[>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>[-]<<[->>+>> >>+<<<<<<]>>>>>>[-<<<<<<+>>>>>>][-]<<<[-]<<[->>+>>>+<<<<<]>>>>>[-<<<<<+>