I don’t know if i’m missing something or what, but the following is confusing
me:
(let ([test (mutable-seteqv)])
(for* ([i (in-range 1000)]
[j (random 0 1000)])
(set-add! test j))
(let ([test-copy (set-copy test)])
(printf "test-copy=~a\n" (set->list test-copy))
(printf "Equal from stream is ~a\n" (equal? (list->seteqv (set->list
test-copy)) test))))
prints something like:
test-copy=(31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9
8 7 6 5 4 3 2 1 0)
Equal from stream is #f
Equal regular is #t
Why is this?
Thanks
Nate
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/ED9A219D-41D8-42BF-9C67-9887ADFB268B%40manicmind.earth.
