Sets of sets

sets-of-sets.gosh

(use srfi-113)

(define (main args)
  (let ([a (list->set equal-comparator '(0 1))]
        [b (list->set equal-comparator '(1 0))])
    #?=(set=? a b)
    #?=(set-size (set set-comparator a b)))
  (let ([a (list->set equal-comparator '((2 . 1) (1 . 1) (0 . 2) (0 . 0)))]
        [b (list->set equal-comparator '((2 . 1) (1 . 1) (0 . 0) (0 . 2)))])
    #?=(set=? a b)
    #?=(set-size (set set-comparator a b)))
  0)

; % gosh -V
; Gauche scheme shell, version 0.9.5_pre1 [utf-8,pthreads], i686-pc-linux-gnu
; % gosh sets-of-sets.gosh
; #?="./sets-of-sets.gosh":6:(set=? a b)
; #?-    #t
; #?="./sets-of-sets.gosh":7:(set-size (set set-comparator a b))
; #?-    1
; #?="./sets-of-sets.gosh":10:(set=? a b)
; #?-    #t
; #?="./sets-of-sets.gosh":11:(set-size (set set-comparator a b))
; #?-    2