Процедура make-cycle
Рассмотрим следующую процедуру
make-cycle
, которая пользуется
last-pair
из упражнения
3.12
:
(define (make-cycle x)
(set-cdr! (last-pair x) x)
x)
Нарисуйте стрелочную диаграмму, которая изображает структуру
z
, созданную таким кодом:
(define z (make-cycle (list 'a 'b 'c)))
Что случится, если мы попробуем вычислить
(last-pair z)
?
Комментарии отсутствуют.