提出 #497894

ソースコード 拡げる

module Main where

import Control.Monad (replicateM)
import Data.List     (find)
import Data.Maybe    (isJust)

main :: IO ()
main = replicateM 12 getLine >>= print . length . filter (isJust . find (== 'r'))

提出情報

提出日時
問題 B - カキ
ユーザ belliture
言語 Haskell (Haskell Platform 2014.2.0.0)
得点 100
コード長 216 Byte
結果 AC
実行時間 37 ms
メモリ 1684 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 2
AC × 22
セット名 テストケース
Sample subtask0_sample_01.txt, subtask0_sample_02.txt
All subtask0_sample_01.txt, subtask0_sample_02.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt
ケース名 結果 実行時間 メモリ
subtask0_sample_01.txt AC 36 ms 1672 KiB
subtask0_sample_02.txt AC 37 ms 1684 KiB
subtask1_01.txt AC 37 ms 1676 KiB
subtask1_02.txt AC 37 ms 1676 KiB
subtask1_03.txt AC 35 ms 1684 KiB
subtask1_04.txt AC 35 ms 1672 KiB
subtask1_05.txt AC 35 ms 1680 KiB
subtask1_06.txt AC 35 ms 1672 KiB
subtask1_07.txt AC 34 ms 1676 KiB
subtask1_08.txt AC 34 ms 1672 KiB
subtask1_09.txt AC 37 ms 1684 KiB
subtask1_10.txt AC 34 ms 1676 KiB
subtask1_11.txt AC 35 ms 1680 KiB
subtask1_12.txt AC 35 ms 1580 KiB
subtask1_13.txt AC 36 ms 1676 KiB
subtask1_14.txt AC 34 ms 1544 KiB
subtask1_15.txt AC 36 ms 1680 KiB
subtask1_16.txt AC 35 ms 1544 KiB
subtask1_17.txt AC 34 ms 1520 KiB
subtask1_18.txt AC 34 ms 1524 KiB
subtask1_19.txt AC 36 ms 1628 KiB
subtask1_20.txt AC 34 ms 1632 KiB