Submission #3221273

Source Code Expand

module Main where

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    getLine
    as <- fmap read . words <$> getLine :: IO [Int]
    print $ abs $ (maximum as) - (minimum as)

Submission Info

Submission Time
Task B - Maximum Difference
User lvs7k
Language Haskell (GHC 7.10.3)
Score 200
Code Size 210 Byte
Status AC
Exec Time 2 ms
Memory 1020 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 18
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, sample_01.txt, sample_02.txt, sample_03.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, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt, subtask_1_12.txt
Case Name Status Exec Time Memory
sample_01.txt AC 1 ms 508 KB
sample_02.txt AC 1 ms 508 KB
sample_03.txt AC 1 ms 508 KB
subtask_1_01.txt AC 1 ms 508 KB
subtask_1_02.txt AC 1 ms 508 KB
subtask_1_03.txt AC 1 ms 636 KB
subtask_1_04.txt AC 2 ms 1020 KB
subtask_1_05.txt AC 2 ms 892 KB
subtask_1_06.txt AC 2 ms 892 KB
subtask_1_07.txt AC 2 ms 1020 KB
subtask_1_08.txt AC 2 ms 1020 KB
subtask_1_09.txt AC 2 ms 1020 KB
subtask_1_10.txt AC 2 ms 1020 KB
subtask_1_11.txt AC 2 ms 1020 KB
subtask_1_12.txt AC 2 ms 1020 KB