cellularmitosis · July 10, 2024 03:56 · mgubi · Dec 30, 2020 · cellularmitosis · Dec 30, 2020
diff --git a/README.md b/README.md
diff --git a/bench.sh b/bench.sh
 #!/bin/bash

 # brew install guile gambit-scheme chezscheme mit-scheme chibi-scheme chicken racket scheme48 gerbil-scheme kawa

 # note: you'll have to hack this script and execute kawa as "kawa -s".
 for scheme in elk guile chez mit-scheme csi chibi-scheme scheme48 racket
 do
    outfile="results-${scheme}.csv"
    echo "(fib n),time" > $outfile

    # do a dry-run to ensure vfs cache is warm
    $scheme >/dev/null 2>&1 <<EOF
 (define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))
 (fib 10)
 EOF

    for n in `seq 1 40`
    do
        echo "$scheme (fib $n)"
        { time $scheme <<EOF
 (define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))
 (display (fib $n))
 (newline)
 EOF
        } 2>&1 | grep real | awk '{print $2}' | sed 's/^0m//' | sed 's/s$//' | sed "s/^/$n,/" >> $outfile
    done
 done
	#!/bin/bash

	# brew install guile gambit-scheme chezscheme mit-scheme chibi-scheme chicken racket scheme48 gerbil-scheme kawa

	# note: you'll have to hack this script and execute kawa as "kawa -s".
	for scheme in elk guile chez mit-scheme csi chibi-scheme scheme48 racket
	do
	outfile="results-${scheme}.csv"
	echo "(fib n),time" > $outfile

	# do a dry-run to ensure vfs cache is warm
	$scheme >/dev/null 2>&1 <<EOF
	(define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))
	(fib 10)
	EOF

	for n in `seq 1 40`
	do
	echo "$scheme (fib $n)"
	{ time $scheme <<EOF
	(define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))
	(display (fib $n))
	(newline)
	EOF
	} 2>&1 \| grep real \| awk '{print $2}' \| sed 's/^0m//' \| sed 's/s$//' \| sed "s/^/$n,/" >> $outfile
	done
	done