logand.bm « benchmarks « benchmark-suite - software/guile - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/benchmark-suite/benchmarks/logand.bm

blob: cdb05e88d5ba523d9ff2f82582a21ea85e18a57b (about) (plain)

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

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