~amirouche/xp-web-assembly

add ruse/chez benchmarks...!
more benchmarks
add tail recursive code + benchmarks
add ascii graph done with termgraph
add python, chibi program, record benchmarks.txt
test.wat was generated programmatically...

source is:

(define fibonacci
  (lambda (a b n)
    (if (zero? n)
        a
        (let* ((n* (- n 1))
               (b* (+ a b))
               (a* b))
           (fibonacci a* b* n*)))))

(define generate-positive-integers-from
  (lambda (n)
    (let ((nbox (make-box n)))
      (lambda ()
        (let ((nbis (unbox nbox)))
          (let ((nbis* (- nbis 1)))
            (let ((ignore (box! nbox nbis*)))
              nbis)))))))

(define run
  (lambda (start generator n out)
    (if (zero? (generator))
        (let ((ignore (print -1 (- (time) start))))
          out)
        (let ((out (fibonacci 0 1 n)))
          (run start generator n out)))))

(run (time) (generate-positive-integers-from 1000) 8000 0)