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

赋值操作是通过 set! 语句来实现的。下面是一些示例，展示如何为变量赋值对象的参数值

示例 1：简单的赋值

假设我们有一个变量 x，我们希望将其值设置为一个新的值。

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

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

示例 2：使用参数值进行赋值

假设我们有一个函数，它接受一个参数，并将该参数的值赋给一个全局变量。

(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)

示例 3：使用对象的参数值进行赋值

假设我们有一个对象（在 Scheme 中可以使用列表来模拟对象），我们希望将对象的某个属性值赋给一个变量。

(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)

示例 4：使用局部变量和赋值

在函数内部使用局部变量，并通过赋值操作改变其值。

(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)