mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
0237895653
from the test-suite directory, renamed and adapted for use with benchmarks. * benchmarks/logand.bm, benchmarks/continuations.bm, benchmarks/if.bm: Added as initial fairly stupid examples for benchmarks.
6 lines
123 B
Text
6 lines
123 B
Text
(define bignum (1- (expt 2 128)))
|
|
|
|
(let* ((i 0))
|
|
(benchmark "bignum" 130000
|
|
(logand i bignum)
|
|
(set! i (+ i 1))))
|