結果

問題 No.509 塗りつぶしツール
ユーザー aimy
提出日時 2017-04-28 23:42:17
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 257 Byte
コンパイル時間 868 ms
使用メモリ 3,652 KB
最終ジャッジ日時 2020-01-24 08:30:04

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
00_sample0.txt AC 0 ms
3,572 KB
00_sample1.txt AC 4 ms
3,644 KB
00_sample2.txt AC 0 ms
3,648 KB
10_gen_case1.txt AC 0 ms
3,640 KB
10_gen_case2.txt AC 4 ms
3,444 KB
10_gen_case3.txt AC 0 ms
3,452 KB
10_gen_case4.txt AC 0 ms
3,448 KB
10_gen_case5.txt AC 4 ms
3,652 KB
10_gen_case6.txt AC 0 ms
3,628 KB
10_gen_case7.txt AC 0 ms
3,448 KB
10_gen_case8.txt AC 4 ms
3,392 KB
10_gen_case9.txt AC 4 ms
3,576 KB
10_gen_case10.txt AC 0 ms
3,568 KB
10_gen_case11.txt AC 4 ms
3,564 KB
10_gen_case12.txt AC 0 ms
3,648 KB
10_gen_case13.txt AC 0 ms
3,576 KB
10_gen_case14.txt AC 4 ms
3,632 KB
10_gen_case15.txt AC 4 ms
3,440 KB
10_gen_case16.txt AC 0 ms
3,568 KB
10_gen_case17.txt AC 4 ms
3,648 KB
10_gen_case18.txt AC 4 ms
3,452 KB
10_gen_case19.txt AC 0 ms
3,564 KB
10_gen_case20.txt AC 4 ms
3,632 KB
20_handmade1.txt AC 0 ms
3,632 KB
20_handmade2.txt AC 4 ms
3,628 KB
20_handmade3.txt AC 0 ms
3,448 KB
20_handmade4.txt AC 0 ms
3,648 KB
99_corner1.txt AC 4 ms
3,400 KB
99_corner2.txt AC 0 ms
3,596 KB
99_corner3.txt AC 4 ms
3,500 KB
テストケース一括ダウンロード
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.8.1/environments/default
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
import Data.List

main = getLine >>= print . paint

paint n = min (2 + length n + (hole n)*2) (length n * 2 + hole n + 1)

hole n = sum $ map hole' n
 where hole' c = case c of {'0'->1; '1'->0; '2'->0; '3'->0; '4'->1; '5'->0; '6'->1; '7'->0; '8'->2; '9'->1}
0