Submission #1484492
Source Code Expand
import Data.List main :: IO () main = do [k, t] <- getInts ns <- zip [1..] <$> getInts print $ solve k t ns getInts :: IO [Int] getInts = map read . words <$> getLine solve :: Int -> Int -> [(Int, Int)] -> Int solve k t ns = max (mx - 1 - (k - mx)) 0 where (ma, mx) = maximumBy (\(_, a) (_, b) -> compare a b) ns
Submission Info
Submission Time | |
---|---|
Task | B - K Cakes |
User | nmjiri |
Language | Haskell (GHC 7.10.3) |
Score | 200 |
Code Size | 343 Byte |
Status | AC |
Exec Time | 2 ms |
Memory | 892 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | 0_000.txt, 0_001.txt, 0_002.txt |
All | 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
0_000.txt | AC | 2 ms | 508 KB |
0_001.txt | AC | 2 ms | 508 KB |
0_002.txt | AC | 2 ms | 508 KB |
1_003.txt | AC | 2 ms | 892 KB |
1_004.txt | AC | 2 ms | 508 KB |
1_005.txt | AC | 1 ms | 508 KB |
1_006.txt | AC | 2 ms | 892 KB |
1_007.txt | AC | 2 ms | 892 KB |
1_008.txt | AC | 2 ms | 636 KB |
1_009.txt | AC | 2 ms | 636 KB |