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