#|

Time the cache-less version of the pattern matcher
under the theory that if this speeds up, the cache
can be used less, leading to less memory use, and
better performance.

(and I'm pretty sure that measuing the cache isn't
super useful.)

Robby

|#

(require (planet "reduction-semantics.ss" ("robby" "redex.plt" 2 4)))
(set-cache-size! #f)
(require (planet "beginner.ss" ("robby" "redex.plt" 2 4) "examples"))
(collect-garbage)
(printf "Now\n")
(time (begin (run-tests) (run-tests) (run-tests)))