結果

問題 No.124 門松列(3)
ユーザー 6soukiti296soukiti29
提出日時 2017-09-03 20:35:36
言語 Nim
(2.0.2)
結果
TLE  
実行時間 -
コード長 2,587 bytes
コンパイル時間 2,963 ms
コンパイル使用メモリ 68,940 KB
実行使用メモリ 315,812 KB
最終ジャッジ日時 2023-09-12 15:06:21
合計ジャッジ時間 19,750 ms
ジャッジサーバーID
（参考情報） 		judge13 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 TLE -
testcase_01 AC 2 ms
4,376 KB
testcase_02 AC 1 ms
4,376 KB
testcase_03 AC 4 ms
4,376 KB
testcase_04 TLE -
testcase_05 -- -
testcase_06 -- -
testcase_07 -- -
testcase_08 -- -
testcase_09 -- -
testcase_10 -- -
testcase_11 -- -
testcase_12 -- -
testcase_13 -- -
testcase_14 -- -
testcase_15 -- -
testcase_16 -- -
testcase_17 -- -
testcase_18 -- -
testcase_19 -- -
testcase_20 -- -
testcase_21 -- -
testcase_22 -- -
testcase_23 -- -
testcase_24 -- -
testcase_25 -- -
testcase_26 -- -
testcase_27 -- -
testcase_28 -- -
testcase_29 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/judge/data/code/Main.nim(25, 25) Warning: Number of spaces around '<=' is not consistent [Spacing]
/home/judge/data/code/Main.nim(1, 26) Warning: imported and not used: 'math' [UnusedImport]

ソースコード

diff # 

import sequtils,strutils,math

import sequtils,strutils
type
    priorityQue[I:static[int];T:tuple] = array[I + 1,T]
    item = tuple[cost, x, y, a : int]

proc push[T](A:var priorityQue; b: T;)=
    const key = 0
    A[0][0] += 1
    A[A[0][0]] = b # A[0][0]はsize、最大のIndex
    var index = A[0][0]
    while index > 1 and A[index][key] > A[index div 2][key]:
        (A[index],A[index div 2]) = (A[index div 2],A[index])
        index = index div 2
proc pop(A: var priorityQue):item = #戻り値を書き換える
    const key = 0
    result = A[1]
    A[1] = A[A[0][0]]
    var n : item
    A[A[0][0]] = n
    A[0][0] -= 1
    var index = 1
    while index * 2 <= A[0][0]:
        if index * 2 + 1<= A[0][0]:
            if A[index][key] < A[index * 2][key] and A[index * 2 + 1][key] <= A[index * 2][key]:
                (A[index],A[index * 2]) = (A[index * 2],A[index])
                index = index * 2
            elif A[index][key] < A[index * 2 + 1][key]:
                (A[index],A[index * 2 + 1]) = (A[index * 2 + 1],A[index])
                index = index * 2 + 1
            else:
                break
        elif index * 2 <= A[0][0]:
            if A[index][key] < A[index * 2][key]:
                (A[index],A[index * 2]) = (A[index * 2],A[index])
            break
        else:
            break
proc size(A : priorityQue):int=
    return A[0][0]
    

var
    W, H : int
    hyou : array[103, array[103, int]]
    pq : priorityQue[10000000, item]
    p : item
    D = [[1, 0],[0, 1],[-1, 0],[0, -1]]
    
(W, H) = stdin.readline.split.map(parseInt)
for h in 1..H:
    hyou[h][1..W] = stdin.readline.split.map(parseInt)

proc isKadomatsuSequence(a, b, c : int) : bool =
    if b == 0 or a == 0:
        return true
    if a != b and b != c and c != a:
        if b == max(@[a, b, c]):
            return true
        elif b == min(@[a, b, c]):
            return true
        else:
            return false
    else:
        return false

p = (0, 1, 1, 0)
pq.push(p)
block tansaku:
    while pq.size > 0:
        p = pq.pop()
        if p.cost < - 10000:
            break
        for d in D:
            var
                nx = p.x + d[1]
                ny = p.y + d[0]
            if hyou[ny][nx] == 0:
                continue
            var
                b = hyou[p.y][p.x]
                a = p.a
                c = hyou[ny][nx]
            if isKadomatsuSequence(a, b, c):
                if nx == W and ny == H:
                    echo -p.cost + 1
                    break tansaku
                pq.push((p.cost - 1, nx, ny, b))
    echo -1
0