From 4b50a9fafe793abf3c2c16e203072a98a0702814 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 9 Nov 2023 14:48:49 -0500
Subject: move main execution to State; bring back verify()

---
 forth/fib.fth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'forth/fib.fth')

diff --git a/forth/fib.fth b/forth/fib.fth
index 671528a..3efdd2c 100644
--- a/forth/fib.fth
+++ b/forth/fib.fth
@@ -9,10 +9,10 @@
   5 sys fib 5 sys >r 2drop r> ;
 
 variable avg 0 avg !
-2000 constant iters
+1000 constant iters
 
 : bench ( -- )
-  iters 0 do 100 fibbench avg +! loop
+  iters 0 do 1000 fibbench avg +! loop
   avg @ iters / avg ! ;
 
 bench ." avg time: " avg @ . ." us" cr
-- 
cgit v1.2.3