11 lines
183 B
Racket
11 lines
183 B
Racket
#lang typed-scheme
|
|
|
|
(: f (case-lambda (Number -> Number) (Boolean -> Boolean)))
|
|
(define (f x) (if (number? x) 1 #f))
|
|
|
|
(: x Boolean)
|
|
(define x (f #t))
|
|
|
|
(: xx Number)
|
|
(define xx (f 0))
|