Adding apply stress test from Will M. Farr

This commit is contained in:
Jay McCarthy 2010-08-25 10:52:32 -06:00
parent 0635fc6d75
commit d4e3946ba2

View 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)))))