Add excercise 21.

Author: tyabu12

Makefile

@@ -19,7 +19,7 @@ src/redBlack.cmi:
 	ocamlc -c src/redBlack.mli
 
 a.out: ${SRC} src/redBlack.cmi
-	ocamlc -o a.out -I ./src ${SRC}
+	ocamlc -o $@ -I src ${SRC}
 
 .PHONY: clean
 clean:

src/ex2101.ml

@@ -0,0 +1,19 @@
+open Ex1201
+
+(* 目的: eki_t 型の値を受け取り, きれいに表示する *)
+(* print_eki : eki_t -> unit *)
+let print_eki eki =
+  (print_string eki.namae;
+   print_string "駅の最短距離は";
+   print_float eki.saitan_kyori;
+   print_string "km です。";
+   print_string "手前の駅は";
+   print_string (List.fold_left (fun acc s -> acc ^ ", " ^ s) "" eki.temae_list);
+   print_string "です。";
+   print_newline ())
+
+(* テスト *)
+let () =
+  let syuten_eki = (Ex2005.dijkstra "ikebukuro" "iidabashi") in
+  print_eki syuten_eki;
+  ()

src/ex2102.ml

@@ -0,0 +1,25 @@
+(* 目的: 2以上 n 以下の自然数のリスト l を受け取り, そのうちの素数のリストを返す *)
+(* sieve : int -> int list -> int list *)
+let rec sieve l =
+  print_int (List.length l); print_newline ();
+  match l with
+  | [] -> []
+  | hd :: tl ->
+    hd :: (sieve (List.filter (fun x -> x mod hd <> 0) tl))
+
+(* 目的: 自然数 n を受け取り, n 以下の素数のリストを返す *)
+(* prime : int -> int list *)
+let prime n =
+  let rec enumurate i =
+    if i > n then []
+             else i :: enumurate (i + 1)
+  in
+  sieve (enumurate 2)
+
+(* テスト *)
+let () =
+  print_endline "[debug] prime 2";
+  assert (prime 2 = [2]);
+  print_endline "[debug] prime 10";
+  assert (prime 10 = [2; 3; 5; 7]);
+  ()

src/ex2103.ml

@@ -0,0 +1,25 @@
+open Ex1201 (* eki_t *)
+open Ex2101 (* print_eki *)
+
+(* List dijkstra *)
+(* open Ex1605 *)
+
+(* Binary Tree dijkstra *)
+(* open Ex1715 *)
+
+(* RedBlack dijkstra *)
+open Ex2005
+
+let main shiten_romaji syuten_romaji =
+  let syuten_eki = dijkstra shiten_romaji syuten_romaji in
+  print_eki syuten_eki;
+  ()
+
+let () =
+  if Array.length Sys.argv < 3 then (
+    print_endline (Sys.argv.(0) ^ " <shiten_romaji> <syuten_romaji>");
+    exit 1
+  ) else (
+    main Sys.argv.(1) Sys.argv.(2);
+    exit 0
+  )