29 lines
363 B
Forth
29 lines
363 B
Forth
Block 4830
|
|
: INNER-SEQ ( -- )
|
|
1 2 + 3 4 + * DROP ;
|
|
|
|
: MIDDLE-SEQ ( -- )
|
|
10 0 DO INNER-SEQ LOOP ;
|
|
|
|
: OUTER-SEQ ( -- )
|
|
5 0 DO MIDDLE-SEQ LOOP ;
|
|
|
|
: HOT-WORD ( -- n )
|
|
42 DUP + DUP * ;
|
|
|
|
Block 4831
|
|
: LOCALITY-TEST ( -- )
|
|
100 0 DO
|
|
HOT-WORD DROP
|
|
HOT-WORD DROP
|
|
HOT-WORD DROP
|
|
LOOP ;
|
|
|
|
: MAIN
|
|
1000 0 DO
|
|
OUTER-SEQ
|
|
LOCALITY-TEST
|
|
LOOP
|
|
;
|
|
MAIN
|