]> git.donarmstrong.com Git - lilypond.git/blob - guile18/benchmark-suite/benchmarks/logand.bm
projects / lilypond.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Merge tag 'upstream-mut/2.18.2' into debian
[lilypond.git] / guile18 / benchmark-suite / benchmarks / logand.bm
1 (define bignum (1- (expt 2 128)))
2
3 (let* ((i 0))
4   (benchmark "bignum" 130000
5     (logand i bignum)
6     (set! i (+ i 1))))
Debian packaging of lilypond