typed-racket/typed-racket-test/succeed/pr14823.rkt
2014-12-16 10:07:25 -05:00

7 lines
89 B
Racket

#lang typed/racket/base
(: f : Real Real)
(define (f x)
(+ 1 (expt 1.0 x)))
(f 0)