0. #lang racket
1. (define s1 (mutable-set))
2. (define s2 (mutable-set))
3. (define sa (set s1 s2))
4. (define sb (set s2 s1))
5.  
6. (for ([i (in-list (range 10000))])
7.   (set-add! s1 (format "The number ~a ~a" i (make-string i #\x))))
8.  
9. (for ([i (in-list (reverse (range 10000)))])
10.   (set-add! s2 (format "The number ~a ~a" i (make-string i #\x))))
11.  
12. ;; identical
13. (equal-hash-code s1)
14. (equal-hash-code s2)
15.  
16. ;; identical
17. (equal-secondary-hash-code s1)
18. (equal-secondary-hash-code s2)
19.  
20. ;; #t
21. (equal? s1 s2)
22.  
23. ;; identical
24. (equal-hash-code sa)
25. (equal-hash-code sb)
26.  
27. ;; identical
28. (equal-secondary-hash-code sa)
29. (equal-secondary-hash-code sb)
30.  
31. (equal? sa sb) ;; is #t, but is #f when sa and sb are both mutable sets

=>

-656372666
-656372666
-429934224
-429934224
#t
60474370
60474370
959971741
959971741
#t