37 lines
476 B
Forth
37 lines
476 B
Forth
\ init-5.4th — Volatile, high-CV workload
|
|
|
|
: CHAOS-BLOCK
|
|
256 0 DO
|
|
I 4 MOD 0= IF
|
|
64 0 DO I J + J * DROP LOOP
|
|
ELSE
|
|
64 0 DO I J * I + DROP LOOP
|
|
THEN
|
|
I 8 MOD 0= IF
|
|
128 0 DO I J + J * I + DROP LOOP
|
|
THEN
|
|
LOOP
|
|
;
|
|
|
|
: CHAOS-FIELD
|
|
24 0 DO
|
|
CHAOS-BLOCK
|
|
LOOP
|
|
;
|
|
|
|
: CHAOS-RIPPLE
|
|
8 0 DO
|
|
256 0 DO I J + DROP LOOP
|
|
256 0 DO I J * DROP LOOP
|
|
LOOP
|
|
;
|
|
|
|
: RUN-CHAOS5
|
|
1000000 0 DO
|
|
CHAOS-FIELD
|
|
CHAOS-RIPPLE
|
|
LOOP
|
|
;
|
|
|
|
RUN-CHAOS5
|