typed-racket/typed-racket-test/succeed/set-contract.rkt
2014-12-16 10:07:25 -05:00

8 lines
126 B
Racket

#lang typed/racket
(define-predicate string-set? (Setof String))
(string-set? (set 1 2 3))
(string-set? (set "1" "2" "3"))