(wat-aro)

無職から有職者にランクアップしました

SICP 問題1.12

パスカルの三角形のn行目のk番目を求める手続き
 

(define (pascals-triangle n k)
  (if (or (= k 1) (= n k))
      1
      (+ (pascals-triangle (- n 1) (- k 1))
         (pascals-triangle (- n 1) k))))