字符串附加不起作用；不断覆盖以前的字符串

Question

我正在尝试做一个简单的任务，将一个数字多次附加到一个字符串，并希望这会构建一个字符串。

但它不起作用，每次调用(string-append ....) 似乎什么都不做。

这是我的代码：

(define myString "")
(string-append (number->string 4) myString)
(string-append (number->string 5) myString)
(string-append (number->string 6) myString)
(string-append (number->string 7) myString)
(display myString)

这显示：

“4”

“5”

“6”

“7”

(display myString) 有一个空行

我做错了什么？

如果我以其他方式这样做，它也不起作用：

(define myString "")
(string-append myString (number->string 4))
(string-append myString (number->string 5))
(string-append myString (number->string 6))
(string-append myString (number->string 7))
(display myString)

感谢您的帮助

Answer 1

string-append 不会更改现有字符串；它返回一个作为操作结果的新字符串。

如果这看起来不寻常，请考虑加法运算符+。当我写

3+4

我不会把3改成7，只是返回操作的结果。

所以，在你的情况下，如果你写

(define my-string (string-append (number->string 4) (number->string 5)))
(display my-string)

你应该看到

45

为了进一步向您提供建议，了解您的目标可能会有所帮助。

Answer 2

表达式(string-append (number->string 4) myString) 的计算结果为"4"，这就是您的代码打印4 的原因。同样，(string-append (number->string 5) myString) 的计算结果为 "5"，依此类推。两者都没有真正改变变量myString 的值。

要真正改变变量的值，您需要使用Scheme 的赋值语言set! 将变量赋值。 （名称中的! 是一个Scheme 约定，告诉你这是一个破坏性 操作——即破坏myString 中的先前值并用新值替换它的操作.) 例如，你可以这样写：

(define myString "")
(set! myString (string-append myString (number->string 4))) ;; assigns "4" to myString
(set! myString (string-append myString (number->string 5))) ;; assigns "45" to myString
(set! myString (string-append myString (number->string 6))) ;; assigns "456" to myString
(set! myString (string-append myString (number->string 7))) ;; assigns "4567" to myString
(display myString) ;; prints 4567

但是，您可以一开始就构建您想要的表达式，而不必执行所有这些破坏性操作：

(define myString 
  (string-append (number->string 4) 
    (string-append (number->string 5) 
      (string-append (number->string 6) 
        (string-append (number->string 7) "")))))
(display myString) ;; prints 4567

那时，我不会编写如此重复的代码，而是编写fold-right：

(define myString 
  (fold-right (lambda (num str) 
                (string-append (number->string num) str)) 
    "" (list 4 5 6 7)))
(display myString) ;; prints 4567

如果您必须将"4567" 分配给名为myString 的全局变量，那么您可以在上述两个代码sn-ps 中的任何一个中简单地将define 替换为set!。然而，虽然set! 有时可以派上用场，但惯用的Scheme 倾向于谨慎使用set!s 和其他破坏性操作。我喜欢将感叹号视为“谨慎行事！”的意思！