| 1. |
|
(set-cdr! (car x) '(8)) |
| 2. |
|
(set-car! (cddr x) (caaar x)) |
| 3. |
|
(set-cdr! (first x) (second x)) |
| 4. |
|
(set! x (cdadr x) |
| 5. |
|
(set-car! (cdr (second x)) 4) |
| 6. |
|
(set-car! (cdr x) nil) (set-cdr! (car x) nil) |
| 7. |
(let ((w (list 6 7 8))) (set-car! w w) (set! w (list w w)) w)) |
(set-car! (car x) (cddr x)) |
| 8. |
(let ((y '((a) (b)))) (set-cdr! (first y) y) (set-car! (second y) (cdr y)) (set! y (car y)) y)) |
(set-cdr! x (third x)) (set-cdr! (cdr x) nil) |
| 9. |
((1 2) (1) (2))
|
(set-car! (caar x) 3) |
| 10. |
(c (b c) (a b c))
|
(set-cdr! (cdr x) (third x)) |