Changeset 32557 in project


Ignore:
Timestamp:
07/06/15 23:17:10 (5 years ago)
Author:
sjamaan
Message:

numbers: Fix portability of benchmarks once and for all, so they can be tested on CHICKEN 5 without commenting out stuff all the time.

Location:
release/4/numbers/trunk/benchmarks
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/benchmarks/basics.scm

    r31833 r32557  
    33;; already slow, you're doomed anyway.
    44
    5 ;; Comment out when testing in another Scheme.
    6 (use numbers)
     5(cond-expand
     6  ((and chicken (not full-numeric-tower)) (use numbers))
     7  (else #f))
    78
    89(define s1 (make-string 28321 #\8))
  • release/4/numbers/trunk/benchmarks/cl-bench-bignum.scm

    r32304 r32557  
    2121;;       u=1;v=1;p=1;q=1;for(k=1..1000){w=u+v;u=v;v=w;p=p*w;q=lcm(q,w);}
    2222
    23 ;;;; Comment this out if you want to test in another Scheme
    24 (use numbers)
     23(cond-expand
     24  ((and chicken (not full-numeric-tower)) (use numbers))
     25  (else #f))
    2526
    2627(define *x1* #f)
  • release/4/numbers/trunk/benchmarks/frpoly.scm

    r32304 r32557  
    1212;; to get some semi-useful readings.  It's a good overall benchmark.
    1313
    14 ;; Comment this out when testing in another Scheme
    15 (use numbers)
     14(cond-expand
     15  ((and chicken (not full-numeric-tower)) (use numbers))
     16  (else #f))
     17
    1618;; Using SRFI-55 to attempt to make this at least slightly portable
    1719;; In Scheme48, comment this out and type ,open srfi-39 (or use a package)
  • release/4/numbers/trunk/benchmarks/iterrogo-u8vector-benchmark.scm

    r32089 r32557  
    33(import chicken scheme)
    44
    5 (use numbers extras srfi-4)
     5(cond-expand
     6  ((and chicken (not full-numeric-tower)) (use numbers extras srfi-4))
     7  (chicken (use extras srfi-4))
     8  (else #f))
    69
    710(define v (make-u8vector 16000000 100))
  • release/4/numbers/trunk/benchmarks/pi-ratios.scm

    r32304 r32557  
    4040
    4141;;;; Comment this out if you want to test in another Scheme
    42 (use numbers)
     42(cond-expand
     43  ((and chicken (not full-numeric-tower)) (use numbers))
     44  (else #f))
    4345
    4446;; To get the "error" procedure...
  • release/4/numbers/trunk/benchmarks/read-write.scm

    r32082 r32557  
    11;; Test performance of string<->bignum conversion in base 10 and 16
    22
    3 (use numbers)
     3(cond-expand
     4  ((and chicken (not full-numeric-tower)) (use numbers))
     5  (else #f))
    46
    57;; Racket/PLT Scheme
Note: See TracChangeset for help on using the changeset viewer.