8 lines
166 B
Racket
8 lines
166 B
Racket
#lang typed/racket
|
|
(: foo
|
|
(case->
|
|
(Number -> Number)
|
|
(Number String -> Number)
|
|
(Number String String * -> Number)))
|
|
(define (foo x (s1 "") . s) x)
|