2008/08/19

[scheme]動いた!!

昨日の[scheme]なぜかバグるんだよなぁー。で、バグがでていたのですが、教科書とおりにやってみたら、できた!!

(define (element-of-set? x set)
(cond ((null? set) false)
((= x (car set)) true)
((< x (car set)) false)
(else (element-of-set? x (cdr set)))
)
)

でもおかしいな、「true」や「false」をつかったらバグったプログラムがあったんだよなー。

プログラムの仕様理解不足だな~。

0 コメント:

コメントを投稿