Submission #1127311

Source Code Expand

main :: IO ()
main = do
  [k, s] <- map (read :: String -> Int) .words <$> getLine
  let ans = [(x,y,s-x-y) | x <- [max 0 (s - 2 * k)..k]
                     , y <- [max 0 (s - 2 * k)..min k (s-x)]
                     , s - x - y >= 0 && k >= s - x- y]
  print $ length ans

Submission Info

Submission Time
Task B - Sum of Three Integers
User nmjiri
Language Haskell (GHC 7.10.3)
Score 200
Code Size 283 Byte
Status AC
Exec Time 9 ms
Memory 636 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
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_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.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_01.txt AC 9 ms 636 KB
subtask_1_02.txt AC 2 ms 508 KB
subtask_1_03.txt AC 2 ms 508 KB
subtask_1_04.txt AC 2 ms 508 KB
subtask_1_05.txt AC 2 ms 508 KB
subtask_1_06.txt AC 2 ms 508 KB
subtask_1_07.txt AC 6 ms 508 KB
subtask_1_08.txt AC 2 ms 508 KB