17.4.14 原始プログラムの読み込み

# #quit;; (* ocaml処理系を終了します *) ls quadratic.ml (* quadratic.mlというファイルがあることを確認します *) quadratic.ml (* このように表示されればOKです *) ocaml (* ocaml処理系を再起動します *)   Objective Caml version 3.08.0

# quadratic1(1.0,2.0,1.0) ;; (* quadratic1という関数を使おうとすると… *) Toplevel input: # quadratic1(1.0,2.0,1.0);;   ^^^^^^^^^^ Unbound value quadratic1 (* そのような関数は無いというエラーになります *) # #use "quadratic.ml";; (* quadratic.ml から定義を読み込みます *) val square : float -> float = <fun> val discriminant : float * float * float -> float = <fun> val quadratic1 : float * float * float -> float = <fun> val quadratic2 : float * float * float -> float = <fun> # quadratic1(1.0,2.0,1.0) ;; (* もう一度 quadratic1 を使うと… *) - : float = -1 (* 今度は計算ができました *) #