Submission #576274

Source Code Expand

import Control.Applicative
import Control.Monad
main = do
  [sMin, sMax] <- map read <$> words <$> getLine
  n <- readLn
  xs <- replicateM n readLn
  let f x | x < sMin = sMin - x
          | x > sMax = -1
          | otherwise = 0
  putStr $ unlines $ map (show . f) xs

Submission Info

Submission Time
Task B - 運動管理
User fumieval
Language Haskell (Haskell Platform 2014.2.0.0)
Score 100
Code Size 280 Byte
Status AC
Exec Time 31 ms
Memory 1612 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 20
Set Name Test Cases
Sample sample-01.txt, sample-02.txt
All test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt
Case Name Status Exec Time Memory
sample-01.txt AC 30 ms 1184 KiB
sample-02.txt AC 27 ms 1220 KiB
test-01.txt AC 29 ms 1164 KiB
test-02.txt AC 29 ms 1236 KiB
test-03.txt AC 27 ms 1296 KiB
test-04.txt AC 30 ms 1300 KiB
test-05.txt AC 26 ms 1300 KiB
test-06.txt AC 28 ms 1380 KiB
test-07.txt AC 29 ms 1364 KiB
test-08.txt AC 29 ms 1560 KiB
test-09.txt AC 29 ms 1496 KiB
test-10.txt AC 29 ms 1492 KiB
test-11.txt AC 28 ms 1496 KiB
test-12.txt AC 29 ms 1552 KiB
test-13.txt AC 31 ms 1560 KiB
test-14.txt AC 30 ms 1556 KiB
test-15.txt AC 29 ms 1584 KiB
test-16.txt AC 30 ms 1588 KiB
test-17.txt AC 28 ms 1576 KiB
test-18.txt AC 30 ms 1564 KiB
test-19.txt AC 30 ms 1612 KiB
test-20.txt AC 28 ms 1488 KiB