Hatena::Groupcsnagoya-sicp

toyoshiのSICP宿題帖

 | 

2008-11-09

1.12 パスカルの三角形

00:42 | はてなブックマーク - 1.12 パスカルの三角形 - toyoshiのSICP宿題帖

(define (pascal x y)
  (cond ((= x 1) 1)
	((= x y) 1)
	(else (+ (pascal (- x 1) (- y 1)) (pascal x (- y 1))))))

再帰プロセスって書きはじめると、こんな簡単でいいんだろうかって思う。

今回なら「一個左上と、一個真上を足した数」みたいに文章がそのままコードにできるのが不思議。

 |