結果

問題 No.277 根掘り葉掘り
コンテスト
ユーザー pekempey
提出日時 2017-01-27 21:46:51
言語 F#
(F# 4.0)
結果
AC  
実行時間 441 ms / 3,000 ms
コード長 742 bytes
コンパイル時間 9,014 ms
コンパイル使用メモリ 186,512 KB
実行使用メモリ 59,708 KB
最終ジャッジ日時 2024-12-23 15:58:18
合計ジャッジ時間 16,374 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 18
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (242 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

let N = System.Console.ReadLine() |> int
let graph : (int list) array = Array.create N []

for _ in 0 .. N - 2 do
    let u, v = System.Console.ReadLine().Split() |> Array.map int |> fun a -> a.[0], a.[1]
    let u = u - 1
    let v = v - 1
    graph.[u] <- v :: graph.[u]
    graph.[v] <- u :: graph.[v]

let q = System.Collections.Generic.Queue<int>();

let dist = Array.create N (-1)
dist.[0] <- 0
q.Enqueue(0)

for i = 1 to N - 1 do
    if List.length graph.[i] = 1 then
        dist.[i] <- 0
        q.Enqueue(i)

while q.Count > 0 do
    let u = q.Dequeue()
    for v in graph.[u] do
        if dist.[v] = -1 then
            dist.[v] <- dist.[u] + 1
            q.Enqueue(v)

dist |> Array.iter (fun x -> System.Console.WriteLine(x))
0