SICP Ch.3.1/ 3.2:为变量赋值对象的参数值

(define x 10)  ; 定义变量 x 并赋值为 10
(display x)    ; 输出 x 的值，结果是 10
(newline)

(set! x 20)    ; 将 x 的值设置为 20
(display x)    ; 输出 x 的值，结果是 20
(newline)

(define y 0)  ; 定义全局变量 y 并赋值为 0

(define (set-y new-value)
  (set! y new-value))  ; 将参数 new-value 的值赋给全局变量 y

(display y)  ; 输出 y 的值，结果是 0
(newline)

(set-y 42)   ; 调用函数 set-y，将 y 的值设置为 42
(display y)  ; 输出 y 的值，结果是 42
(newline)

(define person (list 'name "Alice" 'age 30))  ; 定义一个对象 person

(define (get-age person)
  (cadr (cdr (cdr person))))  ; 获取对象的 age 属性值

(define age 0)  ; 定义变量 age 并赋值为 0

(set! age (get-age person))  ; 将 person 的 age 属性值赋给变量 age

(display age)  ; 输出 age 的值，结果是 30
(newline)

(define (increment-counter counter)
  (let ((new-counter counter))  ; 定义局部变量 new-counter 并赋值为 counter
    (set! new-counter (+ new-counter 1))  ; 将 new-counter 的值加 1
    new-counter))  ; 返回新的 counter 值

(define counter 5)  ; 定义变量 counter 并赋值为 5

(display counter)  ; 输出 counter 的值，结果是 5
(newline)

(set! counter (increment-counter counter))  ; 调用函数 increment-counter，将 counter 的值加 1

(display counter)  ; 输出 counter 的值，结果是 6
(newline)