Hatena::Groupsicp

SICP読書記

 | 

2009-11-22

問題3.13

問題3.13 - SICP読書記 を含むブックマーク はてなブックマーク - 問題3.13 - SICP読書記

(18088)> rlwrap gosh

gosh> (define (make-cycle x)

(set-cdr! (last-pair x) x) x)

make-cycle

gosh> (define z (make-cycle (list 'a 'b 'c)))

z

gosh> (last-pair z)

かえってこない〜

cycleを回り続けているはずですね。

append!も、set-car!やset-cdr!も、理解はできるが気持ちが悪い。。。

schemeは以外と普通のプログラミング言語だったと言うことで納得しよう。

 |