clojureのevalとmacroで実行時間を比較

bench.bash

#!/bin/bash

for file in `seq 0 19`
do
    clj eval_performance.clj >> bench.txt
done

python bench.py

bench.py

#!/usr/bin/env python
# -*- coding: utf-8 -*-

eval_sum = 0.0
macro_sum = 0.0
fn_sum = 0.0
dotimes_sum = 0.0
line_num = 0
for line in open('./bench.txt', 'r'):
    if line.find("eval") != -1:
        num = line.split(' ')[3]
        eval_sum += float(num)
    if line.find("macro") != -1:
        num = line.split(' ')[3]
        macro_sum += float(num)
    if line.find("fn") != -1:
        num = line.split(' ')[3]
        fn_sum += float(num)
    if line.find("dotimes") != -1:
        num = line.split(' ')[3]
        dotimes_sum += float(num)
    line_num += 1
divider = line_num/4
print "eval:", eval_sum/divider
print "macro:", macro_sum/divider
print "fn:", fn_sum/divider
print "dotimes:", dotimes_sum/divider

eval_performance.clj

(use 'clojure.core)
(use 'clojure.test)

(defn eval-sample []
  (eval `(* 10 10)))

(defmacro macro-sample []
  `(* 10 10))

(defn fn-sample []
  (* 10 10))

(defn bench []
  (do
    (print "eval: ") (time (dotimes [_ 10000] (eval-sample)))
    (print "macro: ") (time (dotimes [_ 10000] (macro-sample)))
    (print "fn: ") (time (dotimes [_ 10000] (fn-sample)))
    (print "dotimes: ") (time (dotimes [_ 10000]))))
(bench)