commit 5107e55598f391d1aa2e48aba066280bb9daf984 Spenser Truex <spensertruexonline@gmail.com> 2019-08-25 12:39:37 -0300 Drop benchmark.
length.lisp | 8 -------- 1 file changed, 8 deletions(-)
diff --git a/length.lisp b/length.lisp index 1df243f..0e5d545 100644 --- a/length.lisp +++ b/length.lisp @@ -42,11 +42,3 @@ (len 0 nil) (not (len 1 '(1 2))) (not (len 1 nil))))) -(defun benchmark (fastp) - (labels ((range (from to val) - (loop for x from from to to - collect val))) - (let ((range (range 0 10000000 nil))) ;; 10 million item list of nil - (null (time (if fastp - (len range '(1)) - (length range)))))))