2019-04-29 22:07:23 +00:00
|
|
|
#lang typed/syndicate/roles
|
|
|
|
|
|
|
|
(require rackunit/turnstile)
|
|
|
|
|
|
|
|
(check-type empty-sequence : (Sequence (U)))
|
|
|
|
|
2019-05-20 19:45:32 +00:00
|
|
|
(check-type (sequence-length empty-sequence)
|
2019-04-29 22:07:23 +00:00
|
|
|
: Int
|
|
|
|
⇒ 0)
|
|
|
|
|
|
|
|
(define sequence-length/Int (inst sequence-length Int))
|
|
|
|
(define sequence->list/Int (inst sequence->list Int))
|
|
|
|
(define in-list/Int (inst in-list Int))
|
|
|
|
|
|
|
|
(check-type (sequence->list/Int (in-list/Int (list 3 9 20)))
|
|
|
|
: (List Int)
|
|
|
|
⇒ (list 3 9 20))
|