2021-04-22 16:04:06 +00:00
|
|
|
#lang typed/syndicate
|
2020-02-24 20:10:52 +00:00
|
|
|
|
|
|
|
|
(require rackunit/turnstile)
|
|
|
|
|
|
|
|
|
|
(check-type (or #f #t)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #t)
|
|
|
|
|
|
|
|
|
|
(check-type (and #t #f)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #f)
|
|
|
|
|
|
|
|
|
|
(check-type (or)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #f)
|
|
|
|
|
|
|
|
|
|
(check-type (and)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #t)
|
|
|
|
|
|
|
|
|
|
(check-type (or #f #f #f #f #f #t)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #t)
|
|
|
|
|
|
|
|
|
|
(check-type (and #t #t #t #t #t #f)
|
|
|
|
|
: Bool
|
|
|
|
|
⇒ #f)
|
