昨日 (d:id:i_k_b:20100113:1263400645) の続き。 探索問題なんだ、ということで検索してかつて読んで感動したページ「Search using Haskell」を再発見。 これを参考に書き直したコードが以下: import Data.List import Monad main = do cs <- getContents l…