Submission #864967

Source Code Expand

import Data.List

main :: IO ()
main = do
  a <- map read . words <$> getLine
  let [c, d, e] = sort a
  print $ if odd e then c * d else 0

Submission Info

Submission Time
Task A - Divide a Cuboid
User Poly
Language Haskell (GHC 7.10.3)
Score 200
Code Size 147 Byte
Status AC
Exec Time 7 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 9
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt
Case Name Status Exec Time Memory
0_00.txt AC 5 ms 508 KB
0_01.txt AC 5 ms 508 KB
0_02.txt AC 5 ms 508 KB
1_00.txt AC 5 ms 508 KB
1_01.txt AC 5 ms 508 KB
1_02.txt AC 5 ms 508 KB
1_03.txt AC 5 ms 508 KB
1_04.txt AC 7 ms 508 KB
1_05.txt AC 5 ms 508 KB