Changeset 32523 in project


Ignore:
Timestamp:
06/29/15 20:36:47 (5 years ago)
Author:
sjamaan
Message:

Summary: numbers: Make chudnovsky benchmark portable so we don't have to comment stuff out to test in different CHICKEN versions or different Schemes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/benchmarks/chudnovsky-pi.scm

    r32304 r32523  
    55;;; (quotient ...)
    66
    7 ;; Uncomment these two lines to compare w/ Gambit.  Don't try running
    8 ;; with Gauche, it'll consume all your computer's memory!
    9 (use numbers)
    10 (define integer-sqrt exact-integer-sqrt)
     7;; Don't try running this benchmark with Gauche, it'll consume all
     8;; your computer's memory!
     9(cond-expand
     10  ((and chicken (not full-numeric-tower)) (use numbers))
     11  (else #f))
     12
     13(cond-expand
     14  (chicken (define integer-sqrt exact-integer-sqrt))
     15  (else #f))
    1116
    1217(define ch-A 13591409)
Note: See TracChangeset for help on using the changeset viewer.