Submission #505969

Source Code Expand

module Main where

import Data.List (group, sort)

main :: IO ()
main = getLine >>= print . head . head . filter (\ls -> let l = length ls in l == 1 || l == 3) . group . sort . map (read :: String -> Int) . words

Submission Info

Submission Time
Task A - 長方形
User belliture
Language Haskell (Haskell Platform 2014.2.0.0)
Score 100
Code Size 219 Byte
Status AC
Exec Time 29 ms
Memory 1076 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 27
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.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, subtask1_21.txt, subtask1_22.txt, subtask1_23.txt, subtask1_24.txt
Case Name Status Exec Time Memory
sample_01.txt AC 27 ms 968 KiB
sample_02.txt AC 26 ms 1064 KiB
sample_03.txt AC 25 ms 1048 KiB
subtask1_01.txt AC 27 ms 1056 KiB
subtask1_02.txt AC 26 ms 1064 KiB
subtask1_03.txt AC 28 ms 1056 KiB
subtask1_04.txt AC 27 ms 1044 KiB
subtask1_05.txt AC 25 ms 1056 KiB
subtask1_06.txt AC 25 ms 1064 KiB
subtask1_07.txt AC 29 ms 976 KiB
subtask1_08.txt AC 26 ms 1044 KiB
subtask1_09.txt AC 27 ms 1044 KiB
subtask1_10.txt AC 27 ms 1056 KiB
subtask1_11.txt AC 29 ms 1052 KiB
subtask1_12.txt AC 28 ms 1060 KiB
subtask1_13.txt AC 26 ms 976 KiB
subtask1_14.txt AC 25 ms 1056 KiB
subtask1_15.txt AC 25 ms 1056 KiB
subtask1_16.txt AC 25 ms 1056 KiB
subtask1_17.txt AC 25 ms 1064 KiB
subtask1_18.txt AC 27 ms 1048 KiB
subtask1_19.txt AC 25 ms 1060 KiB
subtask1_20.txt AC 25 ms 1056 KiB
subtask1_21.txt AC 25 ms 1076 KiB
subtask1_22.txt AC 27 ms 1052 KiB
subtask1_23.txt AC 25 ms 1064 KiB
subtask1_24.txt AC 26 ms 1052 KiB