活動記録/第2回のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
活動記録/第2回へ行く。

日時　：2006/5/21 (Mon)
場所　：名大理学部1号館(多元数理科学研究科) 307室
時刻　：18:00～19:30
参加者：13名
Garrigue先生がキタ

3章 exercize &dagger;

Exercize11 (けいご) &dagger;

# 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. はやってない

活動記録/第2回 のバックアップ(No.2)

3章 exercize &dagger;

Exercize11 (けいご) &dagger;

活動記録/第2回のバックアップ(No.2)