benchmark-suite/benchmarks/logand.bm

   1
   2 (define-module (benchmarks logand)
   3   :use-module (benchmark-suite lib))
   4
   5 (define bignum (1- (expt 2 128)))
   6
   7 (let* ((i 0))
   8   (benchmark "bignum" 130000
   9     (logand i bignum)
  10     (set! i (+ i 1))))