Fix collatz typed benchmark for fix to odd? and even?.

2013-01-18 18:19:14 -05:00 · 2013-01-18 18:19:14 -05:00 · 193bff7a2b
commit 193bff7a2b
parent 091e26cde8
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/racket/benchmarks/common/typed/collatz.rktl
+++ b/collects/tests/racket/benchmarks/common/typed/collatz.rktl
@ -10,7 +10,9 @@
   [(odd? n)
    (+ 1 (cycle-length (+ 1 (* 3 n))))]
   [(even? n)
-    (+ 1 (cycle-length (/ n 2)))]
+    ;; TR note: quotient would work better, but that's the other version of
+    ;;          the benchmark
+    (+ 1 (cycle-length (assert (/ n 2) integer?)))]
   [else (error "unreachable")]))

 (time (let: loop : (U False Integer)