Browse code
Modify the benchmarks file
Fernando Borretti authored on 07/10/2013 00:31:17Showing 1 changed files
| ... | ... |
@@ -11,6 +11,13 @@ |
| 11 | 11 |
(time (yaml:parse str)) |
| 12 | 12 |
(terpri)) |
| 13 | 13 |
|
| 14 |
+(defun benchmark-len (n) |
|
| 15 |
+ (benchmark (generate-list (make-gen) n))) |
|
| 16 |
+ |
|
| 14 | 17 |
(defun run-benchmarks () |
| 15 |
- (loop for i from 1 to 256 do |
|
| 16 |
- (benchmark (generate-list (make-gen) (* 256 i))))) |
|
| 18 |
+ (let ((gen (make-gen))) |
|
| 19 |
+ (loop for i from 1 to 256 do |
|
| 20 |
+ (benchmark (generate-list (* 64 i)))))) |
|
| 21 |
+ |
|
| 22 |
+(export 'benchmark-len) |
|
| 23 |
+(export 'run-benchmarks) |