Euler benchmarks were leaving junk on the stack

2008-09-03 17:23:58 -05:00 · 2008-09-03 17:23:58 -05:00 · 194762776e
parent c5979caf75
commit 194762776e
2 changed files with 8 additions and 4 deletions
--- a/extra/benchmark/euler150/euler150.factor
+++ b/extra/benchmark/euler150/euler150.factor
@ -1,4 +1,7 @@
 IN: benchmark.euler150
-USE: project-euler.150
+USING: kernel project-euler.150 ;

-MAIN: euler150
+: euler150-benchmark ( -- )
+    euler150 -271248680 assert= ;
+
+MAIN: euler150-benchmark
--- a/extra/benchmark/euler186/euler186.factor
+++ b/extra/benchmark/euler186/euler186.factor
@ -1,4 +1,5 @@
 IN: benchmark.euler186
-USE: project-euler.186
+USING: kernel project-euler.186 ;

-MAIN: euler186
+: euler186-benchmark ( -- )
+    euler186 2325629 assert= ;