#lang scheme/base
;; $Id: test-shootout.ss,v 1.1 2010/12/20 17:06:23 neilpair Exp $
;; Note: See file "shootout.ss" for legal info.

(require "shootout.ss")

(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)