suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comments on unstable/set

Browse Source
This commit is contained in:
Ryan Culpepper 2010-09-10 17:43:32 -06:00
parent ac8ca8e193
commit 927fae2937
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/unstable/set.rkt
View File

@ -18,12 +18,17 @@
;; into "racket/set.rkt", then it could be even faster by using the
;; representation directly.)
;; Ryan: Sets implement prop:equal+hash, so isn't this just 'equal?'?
(define (proper-subset? one two)
(and (subset? one two)
(not (subset? two one))))
;; Eli: Same comment here -- both re using `set-subtract', and using the
;; count first.
;; Ryan: better yet:
;; (and (subset? one two) (not (= (set-count one) (set-count two))))
(define (set-exclusive-or s0 . rest)
(for/fold ([s s0]) ([s* (in-list rest)])
(define-values [ big small ]