Forth benchmark

Ik vond ergens een eenvoudige manier om forth te benchmarken. de in de vorige post beschreven GGD berekening is daar een prima hulpmiddel bij.

De benchmark bestaat uit de berekening van de GGD voor alle combinaties van getallen tussen 0 en n.

: benchmark ( n -- )  
    dup  
    0 do  
    dup 0 do  
      j i ggd drop  
      loop  
    loop  
    drop  
;  

Het resultaat voor de getallen tussen 0 en 200:
amforth: 8 sec.