演習

ライブラリのマニュアルを見ながら、少し動かしてみた。これからも動作を確認しながら、手探りでやってみる。
それとは別に、OCaml ユーザホイホイなんてものはないのか、考え中。

Hello, World!

# Printf.printf "Hello, World!";;
Hello, World!- : unit = ()

カレントディレクトリを取得する

# #load "unix.cma";;
# Unix.getcwd();;
- : string = "D:\\home"

日付を表示する

# #load "unix.cma";;
# let now_time = Unix.time();;
val now_time : float = 1213186199.
# let now_tm = Unix.localtime now_time;;
val now_tm : Unix.tm =
  {Unix.tm_sec = 59; Unix.tm_min = 9; Unix.tm_hour = 21; Unix.tm_mday = 11;
   Unix.tm_mon = 5; Unix.tm_year = 108; Unix.tm_wday = 3; Unix.tm_yday = 162;
   Unix.tm_isdst = false}
# Printf.printf  "%d-%d-%d\n" (1900 + now_tm.Unix.tm_year) now_tm.Unix.tm_mon now_tm.Unix.tm_mday;;
2008-5-11
- : unit = ()

in を使ってまとめてみた。

# #load "unix.cma";;
# let print_now_time =
      let now_time = Unix.time() in
      let now_tm = Unix.localtime now_time in
      Printf.printf  "%d-%d-%d\n" (1900 + now_tm.Unix.tm_year) now_tm.Unix.tm_mon now_tm.Unix.tm_mday;;
2008-5-11
val print_now_time : unit = ()