为什么这些字符串中的球拍

Question

我运行不同的下面的代码：

(define myframe (new frame% [label "myframe"])) 

(define tf1 (new text-field% [parent myframe] [label "tf1"])) 
(define tf2 (new text-field% [parent myframe][label "tf2"])) 
(define tf3 (new text-field% [parent myframe][label "tf3"])) 

(send myframe show #t) 

(define combined_str (string-append (send tf1 get-value) "-" (send tf2 get-value) "-" (send tf3 get-value))) 
(println combined_str) 
(if (eq? "--" combined_str) "same" "different") 

输出是：

"--" 
"different" 

的combined_str为“ - ”，因为文本字段为空。但它不像“ - ”一样。

Answer 1

这几乎肯定是由于使用eq?而不是equal?造成的。详情请见Object Identity and Comarpison，还有What is the difference between eq?, eqv?, equal?, and = in Scheme?。总之，eq?做了一个指针比较，这不是你想要的。

实例：

> (eq? "--" (string-append "-" "-")) 
#f 
> (equal? "--" (string-append "-" "-")) 
#t 
> (string=? "--" (string-append "-" "-")) 
#t