Submission #1456456


Source Code Expand

main = do
  [n,m] <- map read . words <$> getLine
  print (scc n m)

scc n m = r1 + div mr 4
  where
    r1 = min n (div m 2)
    mr = m - 2*r1

Submission Info

Submission Time
Task C - Scc Puzzle
User aimy
Language Haskell (GHC 7.10.3)
Score 300
Code Size 150 Byte
Status AC
Exec Time 1 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 9
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt
All 00_example_01.txt, 00_example_02.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 1 ms 508 KB
00_example_02.txt AC 1 ms 508 KB
01.txt AC 1 ms 508 KB
02.txt AC 1 ms 508 KB
03.txt AC 1 ms 508 KB
04.txt AC 1 ms 508 KB
05.txt AC 1 ms 508 KB
06.txt AC 1 ms 508 KB
07.txt AC 1 ms 508 KB