Changeset 32587 in project


Ignore:
Timestamp:
07/14/15 10:00:14 (4 years ago)
Author:
sjamaan
Message:

numbers: Some more tweaks for cl-bench-bignum to make it work on Gambit, thanks to Brad Lucier for testing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/benchmarks/cl-bench-bignum.scm

    r32581 r32587  
    2323(cond-expand
    2424 ((and chicken (not full-numeric-tower)) (use numbers))
     25 (gambit (declare (inlining-limit 0)))
    2526 (else #f))
    2627
     
    3132(cond-expand
    3233 (gambit
    33    (define divmod
    3434     ;; Nasty workaround to avoid error on ##-prefix in CHICKEN (even though
    3535     ;; it's cond-expanded, this doesn't work - the reader trips on it).
    3636     (eval (with-input-from-string
    37              "(let ((q-r (##exact-int.div x y))) (values (car q-r) (cdr q-r)))"
    38              read))))
     37             "(define (divmod x y) (let ((q-r (##exact-int.div x y))) (values (car q-r) (cdr q-r))))"
     38             read)))
    3939 (chicken (define divmod quotient&remainder))
    4040 (else (define (divmod x y) (values (quotient x y) (remainder x y)))))
     
    9696    (dotimes (_ repeat)
    9797      (set! *y* (isqrt *x3*)))))
    98   (display "N = ") (display N) (display " gcd(*x3*), divide times by ") (display repeat) (newline)
     98  (display "N = ") (display N) (display " gcd(*x1*,*x2*), divide times by ") (display repeat) (newline)
    9999  (time (dotimes (count 3)
    100100    (dotimes (_ repeat)
Note: See TracChangeset for help on using the changeset viewer.