Submission #5479971

Source Code Expand

open Printf open Scanf
open Array

let () = scanf " %d" @@ fun n ->
  let edges = make n [] in
  let arr = init (n-1) (fun _ -> scanf " %d %d %d" @@ fun u v w ->
    (* u,v,w *)
    edges.(u-1) <- (v-1,w) :: edges.(u-1);
    edges.(v-1) <- (u-1,w) :: edges.(v-1);
  ) in
  let color = make n 2 in
  let rec dfs i c =
    if color.(i) <> 2 then ()
    else (
      color.(i) <- c;
      List.iter (fun (j,w) ->
        if w mod 2 = 0 then dfs j c
        else dfs j (1-c)
      ) edges.(i);
    )
  in dfs 0 0;
  iter (printf "%d\n") color

Submission Info

Submission Time
Task D - Even Relation
User sk0
Language OCaml (4.02.3)
Score 400
Code Size 561 Byte
Status AC
Exec Time 141 ms
Memory 19840 KiB

Compile Error

File "./Main.ml", line 6, characters 6-9:
Warning 26: unused variable arr.

Judge Result

Set Name All Sample
Score / Max Score 400 / 400 0 / 0
Status
AC × 22
AC × 2
Set Name Test Cases
All sample_01, sample_02, testcase_01, testcase_02, testcase_03, testcase_04, 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
Sample sample_01, sample_02
Case Name Status Exec Time Memory
sample_01 AC 1 ms 384 KiB
sample_02 AC 1 ms 384 KiB
testcase_01 AC 78 ms 11008 KiB
testcase_02 AC 50 ms 8064 KiB
testcase_03 AC 63 ms 9344 KiB
testcase_04 AC 78 ms 12928 KiB
testcase_05 AC 125 ms 19840 KiB
testcase_06 AC 51 ms 9472 KiB
testcase_07 AC 1 ms 384 KiB
testcase_08 AC 1 ms 384 KiB
testcase_09 AC 1 ms 384 KiB
testcase_10 AC 34 ms 6912 KiB
testcase_11 AC 3 ms 2048 KiB
testcase_12 AC 51 ms 7680 KiB
testcase_13 AC 52 ms 7808 KiB
testcase_14 AC 52 ms 7936 KiB
testcase_15 AC 139 ms 15488 KiB
testcase_16 AC 141 ms 15488 KiB
testcase_17 AC 138 ms 14976 KiB
testcase_18 AC 23 ms 6144 KiB
testcase_19 AC 93 ms 11520 KiB
testcase_20 AC 33 ms 6400 KiB