10.10.ml

#use "metro.ml"

(* 目的:ローマ字の駅名と駅名リストから漢字の駅名を返す *)
(* romaji_to_kanji : string -> ekimei_t list -> string *)
let rec romaji_to_kanji romaji lst =
  match lst with
    [] -> ""
  | first::rest -> if first.romaji = romaji 
		   then first.kanji
		   else romaji_to_kanji romaji rest

(* テスト *)
let test1 = romaji_to_kanji "a" global_ekimei_list = ""
let test2 = romaji_to_kanji "myogadani" global_ekimei_list = "茗荷谷"