There's a coding error in the
(for (b 0 n)
(for (c 0 n)) <-- misplaced paren
(for (d 0 n)
(for (e 0 n)
(for (f 0 n)
(inc 'x) )))))
(for (b 0 n)
(for (c 0 n)
(for (d 0 n)
(for (e 0 n)
(for (f 0 n)
(inc 'x) )))))) <-- moved paren
Oops, this will change the the benchmark time, I will rerun the benchmark for this and change the numbers ASAP
This was important, thankyou
Lutz
I replaced the 'for' with 'dotimes', which is also a little bit faster, because it does not need an initializer.
Lutz
(define (loop1 n)
(set 'x 0)
(for (a 1 n)
(for (b 1 n)
(for (c 1 n)
(for (d 1 n)
(for (e 1 n)
(for (f 1 n)
(inc 'x) ))))))
(println x)
)
(define (loop2 n)
(set 'x 0)
(dotimes (a n)
(dotimes (b n)
(dotimes (c n)
(dotimes (d n)
(dotimes (e n)
(dotimes (f n)
(inc 'x)))))))
(println x)
)
Quote
> (time (loop1 20))
64000000
21625
> (time (loop2 20))
64000000
22359
>
For me 'for' is a little bit faster?
On my 500 MHz laptop, 'dotimes' wins consistently.
64000000
51028
> (time (loop2 20)) ; dotimes
64000000
49876
Quote
> (time (loop1 20))
64000000
21610
> (time (loop2 20))
64000000
22297
> (time (loop1 20))
64000000
21390
> (time (loop2 20))
64000000
22172
>
1.8 GHZ Desktop P4