Sieve

[galil...@gmail.com]

Este algoritmo lo suelo utilizar para medir un poco el rendimiento de un intérprete. Reda4 es rapidísimo en esta tarea (1,7 segundos frente a 9 en SmallBasic).

^r4/lib/gui.txt

#size 8192

#flags )( 8192

:muestra 'flags 0 ( 10 <? )( swap c@+ "%d " print swap 1+ ) 2drop ;

:activa 'flags 0 ( size <? )( swap 1 swap c!+ swap 1+ ) 2drop ;

:apaga ( size <=? )( dup 'flags + 1- 0 swap c! over + ) drop ;

:itera

  activa 0 2 ( size <=? )( 'flags over + 1- c@ 1? ( 

      drop swap 1+ swap dup dup + apaga )( drop ) 1+

  ) 2drop ;

: cls msec 0 ( 1000 <? )( itera 1+ ) drop msec swap - "%d msec" print show 'exit >esc< ;