Add benchmark suite

benchmark/01-fib31.scm

@@ -0,0 +1,5 @@
+(letrec ((fib (lambda (n)
+                (if (< n 2)
+                    n
+                    (+ (fib (- n 1)) (fib (- n 2)))))))
+  (fib 31))

benchmark/02-fib30.scm

@@ -0,0 +1,5 @@
+(letrec ((fib (lambda (n)
+                (if (< n 2)
+                    n
+                    (+ (fib (- n 1)) (fib (- n 2)))))))
+  (fib 30))

benchmark/03-loop2_5.scm

@@ -0,0 +1,5 @@
+(letrec ((loop (lambda (n acc)
+                (if (< n 2500000)
+                    (loop (+ n 1) (+ acc n))
+                    acc))))
+  (loop 0 0))

benchmark/04-loop3.scm

@@ -0,0 +1,5 @@
+(letrec ((loop (lambda (n acc)
+                (if (< n 3500000)
+                    (loop (+ n 1) (+ acc n))
+                    acc))))
+  (loop 0 0))

benchmark/05-loop5.scm

@@ -0,0 +1,5 @@
+(letrec ((loop (lambda (n acc)
+                (if (< n 5000000)
+                    (loop (+ n 1) (+ acc n))
+                    acc))))
+  (loop 0 0))

benchmark/run.ts

@@ -0,0 +1,28 @@
+import fs from 'fs';
+import path from 'path';
+import * as FoxScheme from '../src/foxscheme';
+
+const { Parser, Interpreter } = FoxScheme as any;
+const benchmarks = [
+  '01-fib31.scm',
+  '02-fib30.scm',
+  '03-loop2_5.scm',
+  '04-loop3.scm',
+  '05-loop5.scm'
+];
+
+const interp = new Interpreter();
+let total = 0;
+for (const file of benchmarks) {
+  const code = fs.readFileSync(path.join(__dirname, file), 'utf8');
+  const parser = new Parser(code);
+  let obj: any;
+  const start = Date.now();
+  while ((obj = parser.nextObject()) !== Parser.EOS) {
+    interp.eval(obj);
+  }
+  const elapsed = Date.now() - start;
+  total += elapsed;
+  console.log(`${file}: ${ (elapsed/1000).toFixed(3) }s`);
+}
+console.log(`Total: ${(total/1000).toFixed(3)}s`);

package.json

@@ -15,7 +15,8 @@
     "build:js": "babel src --out-dir lib --extensions \".ts,.tsx\" --source-maps inline",
     "build:grammar": "peggy --format commonjs -o src/system/parser.generated.js grammar.peg",
     "repl": "node -r ts-node/register src/shim/node.ts",
-    "test": "npm run build:grammar && mocha -r ts-node/register test/interpreter.js"
+    "test": "npm run build:grammar && mocha -r ts-node/register test/interpreter.js",
+    "benchmark": "npm run build:grammar && ts-node benchmark/run.ts"
   },
   "repository": {
     "type": "git",