(* 目的:鶴の数xと亀の数yに応じて足の数の合計を計算する *) (* tsurukame_no_ashi : int -> int -> int *) let tsurukame_no_ashi x y = tsuru_no_ashi x + kame_no_ashi y (* テスト *) let test1 = tsurukame_no_ashi 1 1 = 6 let test2 = tsurukame_no_…

(* 目的:鶴の数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に応…

問題4.2 let jikoshokai name = "I am " ^ name 問題4.3 let hyojun_taiju m = m ** 2.0 *. 22.0 問題4.4 let bmi m kg = kg /. (m ** 2.0)

問題4.1解答 let baito_kyuyo y h = (y * 100 + 850) * h