プログラミングの基礎:問題4.6解答

(* 目的:鶴の数xに応じて足の本数を計算する *)
(* tsuru_no_ashi : int -> int *)
let tsuru_no_ashi x = x * 2

(* テスト *)
let test1 = tsuru_no_ashi 1 = 2
let test2 = tsuru_no_ashi 10 = 20
let test3 = tsuru_no_ashi 20 = 40

(* 目的:亀の数xに応じて足の本数を計算する *)
(* kame_no_ashi : int -> int *)
let kame_no_ashi x = x * 4

(* テスト *)
let test1 = kame_no_ashi 1 = 4
let test2 = kame_no_ashi 10 = 40
let test3 = kame_no_ashi 20 = 80

はじめてまともなテスト用のプログラムを書いた気がする