Submission #1307863
Source Code Expand
import Control.Monad import Control.Applicative import Data.Graph.Inductive main = do [h, w] <- getInts [sy, sx] <- getInts [gy, gx] <- getInts m <- replicateM h getLine let node x y = y * w + x ns = [ (node x y, 0) | x<-[0..w-1], y<-[0..h-1]] es = [(node x y, node cx cy, 1)| x<-[0..w-1], y<-[0..h-1], (dx, dy) <- [(0,1),(0,-1),(1,0),(-1,0)], let cx=x+dx, let cy=y+dy, cx>=0 && cx < w && cy>=0 && cy < h, (m!!y!!x) == '.' && (m!!cy!!cx) == '.' ] g = mkGraph ns es :: Gr Int Int in print $ spLength (node (sx-1) (sy-1)) (node (gx-1) (gy-1)) g where getInts = map read . words <$> getLine
Submission Info
Submission Time | |
---|---|
Task | C - 幅優先探索 |
User | sumi |
Language | Haskell (GHC 7.10.3) |
Score | 100 |
Code Size | 660 Byte |
Status | AC |
Exec Time | 73 ms |
Memory | 9596 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt |
All | subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt, subtask1_21.txt, subtask1_22.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
subtask0_sample01.txt | AC | 2 ms | 636 KB |
subtask0_sample02.txt | AC | 2 ms | 764 KB |
subtask0_sample03.txt | AC | 72 ms | 9468 KB |
subtask1_01.txt | AC | 16 ms | 2940 KB |
subtask1_02.txt | AC | 15 ms | 2940 KB |
subtask1_03.txt | AC | 15 ms | 2812 KB |
subtask1_04.txt | AC | 73 ms | 9596 KB |
subtask1_05.txt | AC | 62 ms | 9340 KB |
subtask1_06.txt | AC | 42 ms | 5884 KB |
subtask1_07.txt | AC | 2 ms | 1020 KB |
subtask1_08.txt | AC | 5 ms | 1532 KB |
subtask1_09.txt | AC | 27 ms | 4092 KB |
subtask1_10.txt | AC | 13 ms | 2684 KB |
subtask1_11.txt | AC | 71 ms | 9468 KB |
subtask1_12.txt | AC | 63 ms | 9468 KB |
subtask1_13.txt | AC | 28 ms | 4476 KB |
subtask1_14.txt | AC | 4 ms | 1404 KB |
subtask1_15.txt | AC | 29 ms | 4476 KB |
subtask1_16.txt | AC | 28 ms | 4220 KB |
subtask1_17.txt | AC | 46 ms | 6396 KB |
subtask1_18.txt | AC | 34 ms | 4604 KB |
subtask1_19.txt | AC | 17 ms | 2940 KB |
subtask1_20.txt | AC | 17 ms | 3068 KB |
subtask1_21.txt | AC | 27 ms | 4476 KB |
subtask1_22.txt | AC | 17 ms | 3196 KB |