test-shootout.rkt
#lang racket/base
;; $Id: test-shootout.rkt,v 1.3 2011/03/04 07:52:42 neilpair Exp $
;; Note: See file "shootout.rkt" for legal info.

(require "shootout.rkt")

(define (va x (y "bbb") (z "ccc"))
  (expt 42 42)
  (string-append x y z))

(define (fa x y z)
  (expt 42 42)
  (string-append x y z))

(shootout (va "aaa")
          (fa "aaa" "bbb" "ccc")
          #:repeat 1000000)