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 [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/ED9A219D-41D8-42BF-9C67-9887ADFB268B%40manicmind.earth.
