Catra's Diary

_ 数独

Nintendo DS と同時に購入した数独であるが、流石に300問やるのはたるい、 なんて思ってしまったため、情報処理学会誌で以前紹介されてた Haskell プログラムを使ってみたり。

• <URL:http://www.ipsj.or.jp/07editj/promenade/index.html> : 2005年11月「ペンシルパズルを解く」
• <URL:http://www.sampou.org/haskell/ipsj/>

ファイルから読み込みたかったため、sudoku.hs の後ろに以下を追加 (前にも import System.Environment を追加)。

main = do args <- getArgs
          mapM_ proc args
       where proc fileName = do c <- readFile fileName
                                print $ sudoku $ read c

コンパイルするには -fglasgow-exts -fallow-overlapping-instances が必要。

_ monotone

いつのまにか結構バージョンがあがっている。 試用に付いてはのちほど。