- 追加された行はこの色です。
- 削除された行はこの色です。
- 日時 :2006/5/21 (Mon)
- 場所 :名大 理学部1号館(多元数理科学研究科) 307室
- 時刻 :18:00〜19:30
- 参加者:13名
- Garrigue先生がキタ
#comment
*3章 exercize [#sa623689]
** Exercize11 (けいご) [#k0e4344a]
# Exercise 11 担当:今井(け)
# 1.
let rec gcd m = function
0 -> m
| n -> gcd n (m mod n)
;;
# 落とし穴
# let gcd m = function 0 -> 0;;
# などと遊んだ後,
# let gcd m = function
# 0 -> m
# | n -> gcd n (m mod n)
# ;;
# と,recが欠けた定義をしたら,おかしなことになった
# 2.
# nCr = n!/r!(n-r)!
let rec comb n r =
let rec fac = function
0 -> 1
| n -> n * fac (n-1)
in
fac n / ((fac r) * (fac (n-r)))
;;
# 3.
let rec fib_pair n =
if n = 1 then (0, 1)
else
let (prev, curr) = fib_pair (n-1) in (curr, curr+prev);;
# 後で書く
# 4. はやってない