#419066 (Kuin) No.971 いたずらっ子

• 問題: No.971 いたずらっ子
• ユーザー: tatt61880
• 提出日時: 2020-01-17 23:12:25
• 言語: Kuin (KuinC++ v.2021.9.17)
• 結果: AC
• 実行時間: 436 ms / 2,000 ms
• コード長: 1,058 bytes
• コンパイル時間: 8,512 ms
• コンパイル使用メモリ: 149,184 KB
• 実行使用メモリ: 43,392 KB
• 最終ジャッジ日時: 2024-11-07 11:33:38
• 合計ジャッジ時間: 13,039 ms
• ジャッジサーバーID （参考情報）: judge4 / judge1

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	433 ms; 43,264 KB
testcase_01	AC	436 ms; 43,264 KB
testcase_02	AC	322 ms; 33,408 KB
testcase_03	AC	411 ms; 43,264 KB
testcase_04	AC	389 ms; 40,960 KB
testcase_05	AC	415 ms; 43,392 KB
testcase_06	AC	319 ms; 34,432 KB
testcase_07	AC	5 ms; 5,248 KB
testcase_08	AC	110 ms; 14,208 KB
testcase_09	AC	104 ms; 13,824 KB
testcase_10	AC	5 ms; 5,248 KB
testcase_11	AC	1 ms; 5,248 KB
testcase_12	AC	2 ms; 5,248 KB
testcase_13	AC	2 ms; 5,248 KB
testcase_14	AC	3 ms; 5,248 KB
testcase_15	AC	2 ms; 5,248 KB
testcase_16	AC	2 ms; 5,248 KB
testcase_17	AC	2 ms; 5,248 KB
testcase_18	AC	2 ms; 5,248 KB
testcase_19	AC	2 ms; 5,248 KB
testcase_20	AC	2 ms; 5,248 KB
testcase_21	AC	2 ms; 5,248 KB
testcase_22	AC	2 ms; 5,248 KB
testcase_23	AC	2 ms; 5,248 KB
testcase_24	AC	2 ms; 5,248 KB

ソースコード

func main()
	var ss: [][]char :: cui@input().split(" ")
	var H: int :: ss[0].toInt(&)
	var W: int :: ss[1].toInt(&)
	var m: [][]char :: #[H, W]char
	var mp: [][]int :: #[H, W]int
	for h(0, H - 1)
		do m[h] :: cui@input()
		for w(0, W - 1)
			do mp[h][w] :: -1
		end for
	end for
	
	do mp[0][0] :: 0
	for h(0, H - 1)
		for w(0, W - 1)
			var x0: int :: w
			var y0: int :: h
			var v0: int :: mp[y0][x0]
			;do cui@print("\{x0} \{y0}\n")
			var dx: []int :: [0, 1]
			var dy: []int :: [1, 0]
			for i(0, 1)
				var x: int :: x0 + dx[i]
				var y: int :: y0 + dy[i]
				if(x = W | y = H)
					skip i
				end if
				var v: int :: v0 + 1 + ((m[y][x] = 'k') ?(x + y, 0))
				if(mp[y][x] = -1)
					do mp[y][x] :: v
				elif(v < mp[y][x])
					do mp[y][x] :: v
				end if
				;do cui@print("(\{x0}, \{y0})→(\{x}, \{y}) \{v}→\{mp[y][x]}\n")
			end for
		end for
	end for
	{
		for h(0, H - 1)
			for w(0, W - 1)
				do cui@print("\{mp[h][w]}\t")
			end for
			do cui@print("\n")
		end for
	}
	
	var ans: int :: mp[H - 1][W - 1]
	do cui@print("\{ans}\n")
end func