Submission #1243780

Source Code Expand

solve :: [Int] -> Int
solve (a:b:c:d:_) = max (a * b) (c * d)

main = putStrLn . show . solve . map read . words =<< getLine

Submission Info

Submission Time
Task A - Two Rectangles
User nyashiki
Language Haskell (GHC 7.10.3)
Score 100
Code Size 127 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All sample_01.txt, sample_02.txt, subtask_1_abmax_01.txt, subtask_1_allmax_01.txt, subtask_1_cdmax_01.txt, subtask_1_rand_01.txt, subtask_1_rand_02.txt, subtask_1_rand_03.txt, subtask_1_same_01.txt, subtask_1_same_02.txt
Case Name Status Exec Time Memory
sample_01.txt AC 2 ms 508 KB
sample_02.txt AC 2 ms 508 KB
subtask_1_abmax_01.txt AC 2 ms 508 KB
subtask_1_allmax_01.txt AC 2 ms 508 KB
subtask_1_cdmax_01.txt AC 2 ms 508 KB
subtask_1_rand_01.txt AC 2 ms 508 KB
subtask_1_rand_02.txt AC 2 ms 508 KB
subtask_1_rand_03.txt AC 2 ms 508 KB
subtask_1_same_01.txt AC 2 ms 508 KB
subtask_1_same_02.txt AC 2 ms 508 KB