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

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

- 日時　：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. はやってない

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

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