Adding apply stress test from Will M. Farr
This commit is contained in:
parent
0635fc6d75
commit
d4e3946ba2
7
collects/tests/stress/racket/apply.rkt
Normal file
7
collects/tests/stress/racket/apply.rkt
Normal file
|
@ -0,0 +1,7 @@
|
|||
#lang racket/base
|
||||
(require tests/stress/stress)
|
||||
|
||||
(fit "apply to atoms"
|
||||
23
|
||||
(lambda (n)
|
||||
(apply void (build-list (expt 2 n) (λ (x) x)))))
|
Loading…
Reference in New Issue
Block a user