diff options
Diffstat (limited to 'benchmark-suite/benchmarks/srfi-1.bm')
-rw-r--r-- | benchmark-suite/benchmarks/srfi-1.bm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/benchmark-suite/benchmarks/srfi-1.bm b/benchmark-suite/benchmarks/srfi-1.bm index e07d3b95f..835608d41 100644 --- a/benchmark-suite/benchmarks/srfi-1.bm +++ b/benchmark-suite/benchmarks/srfi-1.bm @@ -36,3 +36,12 @@ (benchmark "small" 2000000 (fold (lambda (x y) y) #f %small-list))) + + +(with-benchmark-prefix "drop-while" + + (benchmark "big" 30 + (drop-while (lambda (n) #t) %big-list)) + + (benchmark "small" 2000000 + (drop-while (lambda (n) #t) %small-list))) |