ByteSieveBenchmark

ByteSieveBenchmarkResults

 \ ( BYTE magazine benchmark )   

 decimal
 8190 constant size
 : do-prime ( -- )
     here size 1 fill
     0 size 0 do    
        here i + c@ 
        if        
           i 2* 3 + dup i + here +
           begin                 
              dup size here + u< 
           while                
              0 over c! over +  
           repeat            
           2drop 1+          
        then      
     loop         
 \   dup u. ." PRIMES" cr
     drop   ;
    
 : main  ( -- )
     10000 0 do    
        do-prime    
     loop ;