16 lines
292 B
Racket
16 lines
292 B
Racket
#lang typed/racket
|
|
|
|
(: x (U #f Number))
|
|
(define x 7)
|
|
|
|
(if x (add1 x) 7)
|
|
|
|
(if (number? x) (add1 x) 7)
|
|
|
|
(define: y : (Pair Any Any) (cons 1 2))
|
|
|
|
(if (number? (car y)) (add1 (car y)) 7)
|
|
|
|
(if ((lambda: ([z : Any]) (string? z)) x) (add1 x) 0)
|
|
(if ((lambda: ([z : Any]) (number? z)) x) (add1 x) 0)
|