Exercise-3.13

Упражнение 3.13.

Рассмотрим следующую процедуру 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)?

На моей машинке получился бесконечный цикл, надо будет потестить с операционкой которая умеет выполнять подобные циклы за 5 сек.