Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / benchmark-suite / benchmarks / logand.bm

diff --git a/guile18/benchmark-suite/benchmarks/logand.bm b/guile18/benchmark-suite/benchmarks/logand.bm
new file mode 100644 (file)
index 0000000..cdb05e8
--- /dev/null
+++ b/guile18/benchmark-suite/benchmarks/logand.bm
@@ -0,0 +1,6 @@
+(define bignum (1- (expt 2 128)))
+
+(let* ((i 0))
+  (benchmark "bignum" 130000
+    (logand i bignum)
+    (set! i (+ i 1))))