[bpt/guile.git] / benchmark-suite / benchmarks / logand.bm


(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))))
Commit	Line	Data
59047043 NJ	1
	2	(define-module (benchmarks logand)
	3	:use-module (benchmark-suite lib))
	4
02378956 DH	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))))