爲什麼這些字符串中的球拍

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