Submission #3787724
Source Code Expand
import Control.Monad import Text.Printf height :: Int -> Int -> [[Int]] -> Int height cx cy ps = if (all (\[x, y, h] -> h == (max 0 ch - (abs (cx - x)) - (abs (cy - y)))) ps) then ch else 0 where [x0, y0, h0]:_ = filter (\[x, y, h] -> h > 0) ps ch = h0 + (abs (cx - x0)) + (abs (cy - y0)) solve :: [[Int]] -> (Int, Int, Int) solve ps = t where t:_ = filter (\(x, y, h) -> h > 0) [(cx, cy, height cx cy ps) | cx <- [0 .. 100], cy <- [0 .. 100]] main :: IO () main = do n <- readLn :: IO Int ps <- replicateM n $ (map (\s -> read s :: Int)) . words <$> getLine let (cx, cy, ch) = solve ps in printf "%d %d %d\n" cx cy ch
Submission Info
Submission Time | |
---|---|
Task | C - Pyramid |
User | hi_watana |
Language | Haskell (GHC 7.10.3) |
Score | 0 |
Code Size | 670 Byte |
Status | RE |
Exec Time | 4 ms |
Memory | 1020 KB |
Judge Result
Set Name | Sample | All | ||||||
---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 300 | ||||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | s1.txt, s2.txt, s3.txt |
All | in01.txt, in02.txt, in03.txt, in04.txt, in05.txt, in06.txt, in07.txt, in08.txt, in09.txt, in10.txt, in11.txt, in12.txt, in13.txt, in14.txt, in15.txt, in16.txt, in17.txt, in18.txt, in19.txt, in20.txt, s1.txt, s2.txt, s3.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
in01.txt | AC | 2 ms | 508 KB |
in02.txt | AC | 2 ms | 1020 KB |
in03.txt | AC | 2 ms | 1020 KB |
in04.txt | RE | 2 ms | 1020 KB |
in05.txt | AC | 2 ms | 764 KB |
in06.txt | RE | 2 ms | 1020 KB |
in07.txt | AC | 2 ms | 1020 KB |
in08.txt | AC | 2 ms | 636 KB |
in09.txt | AC | 2 ms | 764 KB |
in10.txt | RE | 3 ms | 1020 KB |
in11.txt | RE | 3 ms | 1020 KB |
in12.txt | RE | 3 ms | 1020 KB |
in13.txt | RE | 3 ms | 1020 KB |
in14.txt | RE | 3 ms | 1020 KB |
in15.txt | RE | 3 ms | 1020 KB |
in16.txt | AC | 3 ms | 1020 KB |
in17.txt | AC | 3 ms | 1020 KB |
in18.txt | AC | 4 ms | 1020 KB |
in19.txt | AC | 4 ms | 1020 KB |
in20.txt | RE | 3 ms | 1020 KB |
s1.txt | AC | 2 ms | 508 KB |
s2.txt | AC | 2 ms | 508 KB |
s3.txt | AC | 2 ms | 1020 KB |