28 lines
853 B
Scheme
28 lines
853 B
Scheme
|
;;; DIVITER -- Benchmark which divides by 2 using lists of n ()'s.
|
||
|
|
|
||
|
|
(define (create-n n)
|
||
|
|
(do ((n n (- n 1))
|
||
|
|
(a '() (cons '() a)))
|
||
|
|
((= n 0) a)))
|
||
|
|
|
||
|
|
(define *ll* (create-n 200))
|
||
|
|
|
||
|
|
(define (iterative-div2 l)
|
||
|
|
(do ((l l (cddr l))
|
||
|
|
(a '() (cons (car l) a)))
|
||
|
|
((null? l) a)))
|
||
|
|
|
||
|
|
(define (main . args)
|
||
|
|
(run-benchmark
|
||
|
|
"diviter"
|
||
|
|
diviter-iters
|
||
|
|
(lambda (result)
|
||
|
|
(equal? result
|
||
|
|
'(() () () () () () () () () () () () () () () () () () () ()
|
||
|
|
() () () () () () () () () () () () () () () () () () () ()
|
||
|
|
() () () () () () () () () () () () () () () () () () () ()
|
||
|
|
() () () () () () () () () () () () () () () () () () () ()
|
||
|
|
() () () () () () () () () () () () () () () () () () () ())))
|
||
|
|
(lambda (l) (lambda () (iterative-div2 l)))
|
||
|
|
*ll*))
|