Submission #1517669

Source Code Expand

import Data.List

main = mapM_ print . solve . map read . words =<< getContents

solve :: [Int] -> [Int]
solve (l:h:n:as) = map (solve' l h) as

solve' l h a
    | a < l = l - a
    | a <= h = 0
    | otherwise = -1

Submission Info

Submission Time
Task B - 運動管理
User hsanno
Language Haskell (GHC 7.10.3)
Score 100
Code Size 227 Byte
Status AC
Exec Time 2 ms
Memory 892 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 22
Set Name Test Cases
Sample sample-01.txt, sample-02.txt
All sample-01.txt, sample-02.txt, 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 2 ms 508 KB
sample-02.txt AC 1 ms 508 KB
test-01.txt AC 2 ms 508 KB
test-02.txt AC 2 ms 508 KB
test-03.txt AC 1 ms 508 KB
test-04.txt AC 2 ms 508 KB
test-05.txt AC 1 ms 508 KB
test-06.txt AC 2 ms 636 KB
test-07.txt AC 2 ms 636 KB
test-08.txt AC 2 ms 764 KB
test-09.txt AC 2 ms 892 KB
test-10.txt AC 2 ms 892 KB
test-11.txt AC 2 ms 892 KB
test-12.txt AC 2 ms 892 KB
test-13.txt AC 2 ms 892 KB
test-14.txt AC 2 ms 892 KB
test-15.txt AC 2 ms 892 KB
test-16.txt AC 2 ms 892 KB
test-17.txt AC 2 ms 892 KB
test-18.txt AC 2 ms 892 KB
test-19.txt AC 2 ms 892 KB
test-20.txt AC 2 ms 892 KB