suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a performance test for function contracts

Browse Source
This commit is contained in:
Asumu Takikawa 2015-10-01 17:41:31 -04:00
parent ef6d82e81f
commit bf3f86a2b0
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
typed-racket-test/performance/function-contract.rkt Normal file
View File

@ -0,0 +1,20 @@
#lang racket/base
;; Performance test for generated contracts. This exists to measure
;; whether contract generation interferes with contract
;; system optimizations.
(module server typed/racket/base
(: f (Integer -> Integer))
(provide f)
(define (f x) x))
(require (submod "." server))
(time
(for ([x (in-range 100000)])
(f 1) (f 2) (f 3) (f 4) (f 5)
(f 1) (f 2) (f 3) (f 4) (f 5)
(f 1) (f 2) (f 3) (f 4) (f 5)
(f 1) (f 2) (f 3) (f 4) (f 5)
(f 1) (f 2) (f 3) (f 4) (f 5)))