条件分岐
OCamlにおいて条件分岐は以下のように記述する。
条件分岐
if 条件 then 式 else 式
コード例
例① 入力される実数 x の絶対値を計算する
(* 目的:入力される実数 x の絶対値を計算する *)
let abs_value x =
if x > 0.0 then x
else -. x;;
実行例と実行結果は以下のようになる。
# abs_value (-2.0) ;;
- : float = 2.
# abs_value 1.5 ;;
- : float = 1.5
例② 入力される時刻 x が午前か午後を判定する
(* 目的:入力される時刻 x に応じて午前か午後を出力する *)
let am_or_pm x =
if x < 12 then "午前"
else "午後";;
実行例と実行結果は以下のようになる。
# am_or_pm 9 ;;
- : string = "午前"
# am_or_pm 15 ;;
- : string = "午後"