c12_2.ml

#use "metro.ml"

(* グラフの中の節（駅）を表す型 *) 
type eki_t = { 
  namae        : string;       (* 駅名（漢字） *) 
  saitan_kyori : float;        (* 最短距離 *) 
  temae_list   : string list;  (* 手前の駅名（漢字）のリスト *) 
}

let make_eki_list ekimei =
  let {kanji = kanji_; kana = kana_; romaji = romaji_; shozoku = shozoku_} = ekimei in
  {namae = kanji_; saitan_kyori = max_float; temae_list = []}

let rec map f xs =
  match xs with
    []        -> []
  | (x :: xs) -> f x :: map f xs

let global_eki_t_list = map make_eki_list global_ekimei_list