結果

問題 No.509 塗りつぶしツール
ユーザー くれちー
提出日時 2017-04-28 22:56:39
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 261 Byte
コンパイル時間 884 ms
使用メモリ 3,800 KB
最終ジャッジ日時 2020-01-24 08:18:20

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
00_sample0.txt AC 0 ms
3,772 KB
00_sample1.txt AC 4 ms
3,696 KB
00_sample2.txt AC 4 ms
3,560 KB
10_gen_case1.txt AC 0 ms
3,608 KB
10_gen_case2.txt AC 0 ms
3,660 KB
10_gen_case3.txt AC 0 ms
3,772 KB
10_gen_case4.txt AC 0 ms
3,612 KB
10_gen_case5.txt AC 0 ms
3,612 KB
10_gen_case6.txt AC 4 ms
3,656 KB
10_gen_case7.txt AC 4 ms
3,748 KB
10_gen_case8.txt AC 0 ms
3,656 KB
10_gen_case9.txt AC 0 ms
3,800 KB
10_gen_case10.txt AC 0 ms
3,616 KB
10_gen_case11.txt AC 4 ms
3,616 KB
10_gen_case12.txt AC 0 ms
3,776 KB
10_gen_case13.txt AC 0 ms
3,620 KB
10_gen_case14.txt AC 0 ms
3,768 KB
10_gen_case15.txt AC 0 ms
3,556 KB
10_gen_case16.txt AC 4 ms
3,616 KB
10_gen_case17.txt AC 4 ms
3,648 KB
10_gen_case18.txt AC 4 ms
3,732 KB
10_gen_case19.txt AC 0 ms
3,664 KB
10_gen_case20.txt AC 0 ms
3,640 KB
20_handmade1.txt AC 0 ms
3,728 KB
20_handmade2.txt AC 0 ms
3,656 KB
20_handmade3.txt AC 4 ms
3,600 KB
20_handmade4.txt AC 0 ms
3,736 KB
99_corner1.txt AC 0 ms
3,720 KB
99_corner2.txt AC 0 ms
3,792 KB
99_corner3.txt AC 0 ms
3,784 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 #
main :: IO ()
main = print . solve =<< getLine

table :: [Int]
table = [1, 0, 0, 0, 1, 0, 1, 0, 2, 1]

solve :: String -> Int
solve s = min (t1 + t2 * 2 + 2) (t1 * 2 + t2 + 1)
    where
        t1 = length s
        t2 = sum . map ((table !!) . read . pure) $ s
0