Submission #33507


Source Code Expand

Copy
import Control.Applicative
import Data.List

main :: IO ()
main = do
  es <- map read . words <$> getLine
  b <- read <$> getLine
  ls <- map read . words <$> getLine
  let xs = intersect es ls :: [Int]
  print $ case length xs of
            6 -> 1
            5 | sort (b:xs) == ls -> 2
              | otherwise -> 3
            4 -> 4
            3 -> 5
            _ -> 0

Submission Info

Submission Time
Task A - 宝くじ
User seagull_kamome
Language Haskell (GHC 7.4.1)
Score 100
Code Size 395 Byte
Status AC
Exec Time 48 ms
Memory 1304 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 51
Set Name Test Cases
All 00_1_01.txt, 00_1_02.txt, 00_2_01.txt, 00_2_02.txt, 00_3_01.txt, 00_3_02.txt, 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, 00_sample_05.txt, 01_rand_00.txt, 01_rand_01.txt, 01_rand_02.txt, 01_rand_03.txt, 01_rand_04.txt, 01_rand_05.txt, 01_rand_06.txt, 01_rand_07.txt, 01_rand_08.txt, 01_rand_09.txt, 01_rand_10.txt, 01_rand_11.txt, 01_rand_12.txt, 01_rand_13.txt, 01_rand_14.txt, 01_rand_15.txt, 01_rand_16.txt, 01_rand_17.txt, 01_rand_18.txt, 01_rand_19.txt, 01_rand_20.txt, 01_rand_21.txt, 01_rand_22.txt, 01_rand_23.txt, 01_rand_24.txt, 01_rand_25.txt, 01_rand_26.txt, 01_rand_27.txt, 01_rand_28.txt, 01_rand_29.txt, 01_rand_30.txt, 01_rand_31.txt, 01_rand_32.txt, 01_rand_33.txt, 01_rand_34.txt, 01_rand_35.txt, 01_rand_36.txt, 01_rand_37.txt, 01_rand_38.txt, 01_rand_39.txt
Case Name Status Exec Time Memory
00_1_01.txt AC 48 ms 1268 KB
00_1_02.txt AC 25 ms 1244 KB
00_2_01.txt AC 26 ms 1272 KB
00_2_02.txt AC 25 ms 1268 KB
00_3_01.txt AC 24 ms 1272 KB
00_3_02.txt AC 24 ms 1268 KB
00_sample_01.txt AC 24 ms 1296 KB
00_sample_02.txt AC 24 ms 1272 KB
00_sample_03.txt AC 30 ms 1296 KB
00_sample_04.txt AC 25 ms 1300 KB
00_sample_05.txt AC 26 ms 1288 KB
01_rand_00.txt AC 25 ms 1260 KB
01_rand_01.txt AC 27 ms 1292 KB
01_rand_02.txt AC 27 ms 1264 KB
01_rand_03.txt AC 26 ms 1268 KB
01_rand_04.txt AC 27 ms 1300 KB
01_rand_05.txt AC 26 ms 1248 KB
01_rand_06.txt AC 24 ms 1292 KB
01_rand_07.txt AC 25 ms 1276 KB
01_rand_08.txt AC 25 ms 1272 KB
01_rand_09.txt AC 26 ms 1200 KB
01_rand_10.txt AC 24 ms 1268 KB
01_rand_11.txt AC 25 ms 1268 KB
01_rand_12.txt AC 33 ms 1260 KB
01_rand_13.txt AC 25 ms 1192 KB
01_rand_14.txt AC 25 ms 1296 KB
01_rand_15.txt AC 25 ms 1164 KB
01_rand_16.txt AC 24 ms 1296 KB
01_rand_17.txt AC 27 ms 1244 KB
01_rand_18.txt AC 26 ms 1304 KB
01_rand_19.txt AC 25 ms 1264 KB
01_rand_20.txt AC 26 ms 1268 KB
01_rand_21.txt AC 26 ms 1268 KB
01_rand_22.txt AC 26 ms 1296 KB
01_rand_23.txt AC 24 ms 1268 KB
01_rand_24.txt AC 25 ms 1296 KB
01_rand_25.txt AC 25 ms 1272 KB
01_rand_26.txt AC 26 ms 1252 KB
01_rand_27.txt AC 23 ms 1272 KB
01_rand_28.txt AC 26 ms 1296 KB
01_rand_29.txt AC 26 ms 1272 KB
01_rand_30.txt AC 25 ms 1268 KB
01_rand_31.txt AC 25 ms 1296 KB
01_rand_32.txt AC 26 ms 1296 KB
01_rand_33.txt AC 24 ms 1268 KB
01_rand_34.txt AC 28 ms 1296 KB
01_rand_35.txt AC 25 ms 1296 KB
01_rand_36.txt AC 24 ms 1304 KB
01_rand_37.txt AC 26 ms 1300 KB
01_rand_38.txt AC 25 ms 1296 KB
01_rand_39.txt AC 25 ms 1300 KB