結果

問題 No.436 ccw
ユーザー はむ吉🐹
提出日時 2016-10-28 22:42:30
言語 Haskell
(8.8.1)
結果
AC  
実行時間 19 ms
コード長 180 Byte
コンパイル時間 965 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2019-10-11 11:20:03

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
00_sample01.txt AC 3 ms
6,872 KB
00_sample02.txt AC 4 ms
6,876 KB
01_hand01.txt AC 3 ms
6,872 KB
01_hand02.txt AC 3 ms
6,872 KB
01_hand03.txt AC 3 ms
6,872 KB
01_hand04.txt AC 4 ms
6,876 KB
01_hand05.txt AC 3 ms
6,872 KB
01_hand06.txt AC 3 ms
6,872 KB
01_hand07.txt AC 3 ms
6,876 KB
01_hand08.txt AC 3 ms
8,920 KB
01_hand09.txt AC 3 ms
6,876 KB
in01.txt AC 3 ms
6,872 KB
in02.txt AC 3 ms
6,876 KB
in03.txt AC 3 ms
6,872 KB
in04.txt AC 3 ms
6,876 KB
in05.txt AC 3 ms
6,876 KB
in06.txt AC 3 ms
6,872 KB
in07.txt AC 4 ms
6,872 KB
in08.txt AC 4 ms
6,876 KB
in09.txt AC 4 ms
8,916 KB
in10.txt AC 4 ms
6,876 KB
in11.txt AC 17 ms
7,892 KB
in12.txt AC 17 ms
7,900 KB
in13.txt AC 17 ms
7,900 KB
in14.txt AC 19 ms
7,900 KB
in15.txt AC 17 ms
7,732 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 #
minNumOps :: String -> Int
minNumOps s = min (count 'c' s - 1) (count 'w' s)
    where
        count x = length . filter (== x)

main :: IO ()
main = print . minNumOps =<< getLine
0