benchmark-suite/benchmarks/logand.bm


1
2
3
4
5
6
7
8
9
10


(define-module (benchmarks logand)
  :use-module (benchmark-suite lib))

(define bignum (1- (expt 2 128)))

(let* ((i 0))
  (benchmark "bignum" 130000
    (logand i bignum)
    (set! i (+ i 1))))