Scheme 版本的 C `++`

Question

我将如何增加一个变量，例如 Chicken 中的a=0; a++;？

在 Common Lisp 中，我会像这样使用 incf 来做到这一点：

(setf a 0) (incf a) (print a)

;=> 0

;=> 1

;=> 1
;=> 1

但是 Chicken-scheme 似乎没有 incf 函数/宏，我尝试使用 apropos egg 东西，但到目前为止这根本没有帮助。

在 C 中，我会像这样递增变量：

int a = 0;
a++;
printf("%d", a);

注意，我不想知道如何简单地将a 的值暂时增加1，我想增加a 以便a 不再等于0 但等于 1。

因此，以下是我想要的不是：

(let ((a 0)) (set! a (+ 1 a)) (print a))

这是我正在寻找的示例——用 NewLisp 编写：

(set 'a 0) (++ a) (println a)

注意 函数/宏需要能够接受带引号的变量并永久增加该变量的值。因此它需要等同于以下 C 代码：

a = 0; a++; // a now equals 1

我只想在 Chicken 中编写一个宏来执行此操作，但我似乎无法对 Chicken 的宏进行正面或反面——它们只是没有任何意义；它们根本不像 common-lisps 宏。

这是我刚刚在 common-lisp 中编写的一个示例宏：

(defmacro ++ (sym) (let ((a (gensym "a,sym,") ))
  `(let* ((,a ,sym))
      (setf ,sym (+ 1 ,a)) ,sym)) )

(setf a 0)

;=> 0

(++ a)

;=> 1

a 

;=> 1

Answer 1

在Scheme中使用set!进行设置。

(let ((a 0))
  (set! a (+ a 1))
  (print a))

我不是 Schemer，但我认为您可以为此编写一个宏，如下所示：

(define-syntax inc!
  (syntax-rules ()
    ((inc! var)
     (set! var (+ var 1)))))

这样你就可以写了

(inc! a)

Answer 2

(define counter
        (let ((count 0))
          (lambda ()
            (set! count (+ count 1))
            count)))

>(counter)
1
>(counter)
2

始终将副作用的范围包含在闭包中。 count 变量无法逃脱let 范围

编辑： 请看以下。 （尽管这正是您通常应该尽量避免的！）

> (define a 0)
> (define inca (lambda () (set! a (+ a 1))))
> a
0
> (inca)
> a
1

SICP 是一本很棒的书。您应该尝试了解 scheme 中变量的范围以及它与其他 lisp 的不同之处。成为鸡计划与这些问题无关。 Chicken 是一个很棒的 R5RS 实现，您的问题将适用于所有方案。