2007-07-16から1日間の記事一覧
あー、縦方向に圧縮しないといけなかったのか。まぁ、そりゃそうか。気が向いたら圧縮する関数でも書いてみるか…。
http://ja.doukaku.org/20/ から。これってバブルソートだよね。 makeAmida n = mapM_ putStrLn $ amida n where amida 0 = [take (2*n-1) $ cycle "| "] amida m = let line = take (2*n-1) $ cycle "| " in map (\n -> updateList n '_' line) [1,3..2*(m-…