글 읽기 - 채점중 50% 넘겼는데 런타임 에러 났습니다. 도와주세요 ㅠㅠ

cushionbadak 6년 전 0

여럿 분들이 그러하듯 고생고생 짜서

테스트케이스 돌리고 잘 돌아간다 싶어

제출에 코드 복붙하고 돌리는데

'채점중'

에 견디다 못해 F5를 누르니

'런타임 에러'

입이 떡 벌어져라

두 눈을 비비고 같은 코드 제출하고 뚫어지라 지켜보고 있으니

'채점중(50%)'

'채점중(6x%)'

'런타임 에러'

입니다. 도와주세요ㅠㅠ

+ ) 다른 질문들의 테스트 케이스 한두개 더 찾아 돌려봤지만

답은 잘 나왔습니다.

======================

밑의 코드는 OCaml 문법입니다. (봐주실 분이 있을까)

<<설명>>

한 테스트 케이스에서,

1> input을 받아 배열로 저장하고

2> 그래프는

( 노드 번호,

이 노드를 시작점으로 하는 도착점들의 list,

이 노드를 도착점으로 하는 시작점들의 list )

의 배열

= t_1005 타입

으로 바꾸어 저장하였습니다.

3> colorFlags 배열을 만들어 문제풀이에 필요없는 노드와 필요한 노드를 구분할 정보를 저장해두었습니다.

4> topological_sort 함수를 실행시키면 위상 정렬이 수행된 '노드번호로 이루어진 리스트' 값을 얻습니다.

5> finalBuildTimeArray 배열 n번째 원소는 n+1번 노드 건설에 필요한 시간이 담기도록 설계되었습니다....

배열 범위 체크도 열심히 했는데 어딜 놓친걸까요?

도와주세요 ㅠㅠㅠ

(***** MISCS *****)
(******************************
******************************
******************************

        거르고 보는 부분
      휠을 굴려 밑을 봐주세요

******************************
******************************
******************************
*)

let idf =
  fun x -> x
  
let twoToPair = 
  fun x y -> (x, y)

let rec nloop f n =
  match n < 1 with
  | true -> ()
  | false -> begin f (); nloop f (n-1) end

(* whitespace and linefeed version *)
let scanOneInt_ws f () = Scanf.scanf "%d "  f
let scanOneInt_lf f () = Scanf.scanf "%d\n" f
  
(* scanNInt_array only scans integers in one line, 
    separated by ' ' and finished with '\n'. *)
(* For multi-line scanf, use Array.init and lambda func. *)
let scanNInt_array n =
  let subfunc () =
    let subsubfunc = 
      fun i -> 
      (match i = (n-1) with
      | false -> scanOneInt_ws (fun x -> x) ()
      | true  -> scanOneInt_lf (fun x -> x) () ) in
    Array.init n subsubfunc
  in
  (match n < 1, n < 2 with
  | false, false -> subfunc ()
  | false, true -> let a = read_int () in [| a |]
  | _ -> [||] )
  
(***** MISCS End *****)


(***** MISC_PROBLEM *****)

let dbgcute () = print_endline "> _ <"
let printDebug s = print_endline ("DEBUG :: " ^ s)
let print_array arr f = Array.iter (fun x -> (f x; print_char ' ')) arr

let testCaseLoop problem_solving_f () = 
  Scanf.scanf "%d\n" (fun n -> nloop problem_solving_f n)

(***** MISC_PROBLEM End *****)


(***** Problem *****)


(*******************************
******************************
******************************
******************************
      여기서부터 문제풀이
******************************
******************************
******************************
*)



(* type t_1005 = building Number, 
                dependencies list(destinations), 
                dependencies list(sources)        *)
type t_1005 = (int * ((int list) ref) * ((int list) ref) ) array

(* type color : flag value for select nodes and topological sort *)
type color = 
  | UNUSED
  | UNCOLORED
  | COLORED

let problem_solving_1005 () =
  (* input processing *)
  let buildingNum, ruleNum = Scanf.scanf "%d %d\n" twoToPair in
  let buildTimeArray = scanNInt_array buildingNum in
  let buildDepArray =
    let scantmp () = Scanf.scanf "%d %d\n" (fun x y -> (x, y)) in
    Array.init ruleNum (fun i -> scantmp ())  in
  let needBuildingNum = scanOneInt_lf idf () in
  
  (* construct dependencies list *)
  let depInfo : t_1005 = Array.init 
                            buildingNum 
                            (fun i -> (i+1, ref [], ref [])) in
  let _ = 
    let subfunc (src, dest) = 
      let snd (x, y, z) = y in
      let trd (x, y, z) = z in
      begin 
      (snd depInfo.(src-1)) := (dest :: !(snd depInfo.(src-1)));
      (trd depInfo.(dest-1)) := (src :: !(trd depInfo.(dest-1)));
      ()
      end  in
    Array.iter subfunc buildDepArray  in
  
  (* select necessary nodes *)
  let colorFlags : color array = Array.make buildingNum UNUSED in
  let _ =
    let trd (x, y, z) = z in
    let rec dfs n =
      let coloring n =
        (match colorFlags.(n-1) with
        | UNUSED -> begin 
                    colorFlags.(n-1) <- UNCOLORED; 
                    ignore (dfs n)
                    end
        | _ -> ()
        ) in
      List.iter (fun n -> coloring n) !(trd depInfo.(n-1))  in
    begin
    colorFlags.(needBuildingNum-1) <- UNCOLORED;
    ignore (dfs needBuildingNum)
    end  in
  
  (* topological sorting *)
  (* https://en.wikipedia.org/wiki/Topological_sorting *)
  let topological_sort () =
    let snd (x, y, z) = y in
    let returnList = ref [] in
    let rec visit i =
      (match colorFlags.(i-1) with
      | COLORED -> ()
      | UNCOLORED -> begin
                     colorFlags.(i-1) <- COLORED;
                     List.iter (fun x -> visit x) !(snd depInfo.(i-1));
                     returnList := i :: (!returnList)
                     end
      | _ -> ()   ) in
    let _ =
      Array.iteri
        (fun i c -> match c with
                    | UNUSED -> ()
                    | UNCOLORED -> visit (i+1)
                    | COLORED -> ()         )
        colorFlags  in
    !returnList  in
  let sortedList = topological_sort () in
  
  (* calculate time *)
  let finalBuildTimeArray = Array.make buildingNum 0 in
  let _ = 
    let trd (x, y, z) = z in
    let calculate x =
      let depInfoL = !(trd depInfo.(x-1)) in
      let nodeBuildTime = buildTimeArray.(x-1) in
      let subfunc maxtime elem =
        let pluselemtime = finalBuildTimeArray.(elem-1) + nodeBuildTime in
        (max maxtime pluselemtime)  in
      let lastmaxtime = 
        (match depInfoL with
          | [] -> nodeBuildTime
          | _ -> List.fold_left subfunc 0 depInfoL) in
      finalBuildTimeArray.(x-1) <- lastmaxtime
    in
    let entry x =
      (match colorFlags.(x-1) with
        | UNUSED -> ()
        | _ -> ignore (calculate x)  ) in
    begin
    List.iter (fun x -> entry x) sortedList
    end  in
  
  (* print answer *)
  print_endline (string_of_int finalBuildTimeArray.(needBuildingNum-1))


let _ = testCaseLoop (problem_solving_1005) ()

댓글을 작성하려면 로그인해야 합니다.

문제

문제

출처

ICPC

채점중 50% 넘겼는데 런타임 에러 났습니다. 도와주세요 ㅠㅠ

cushionbadak 6년 전 0

Baekjoon Online Judge

채점 현황

문제

유저 대회

고등학교 대회

출처

대학교 대회

도움말