23 lines
301 B
Racket
23 lines
301 B
Racket
#lang typed/racket
|
|
|
|
(: f1 (case-> (Number -> Number) (Number 4 -> Number)))
|
|
(define (f1 x (y 4)) y)
|
|
|
|
(f1 2 4)
|
|
|
|
(: f2 (4 -> (Values Number Number)))
|
|
(define (f2 x) (values x x))
|
|
|
|
(f2 4)
|
|
|
|
(: f3 (4 Number * -> Number))
|
|
(define (f3 x . y) x)
|
|
|
|
(f3 4)
|
|
|
|
(: f4 (4 * -> Number))
|
|
(define (f4 . y) 5)
|
|
|
|
(f4 4 4)
|
|
|