retroforth/benchmarks/times.retro
crc fd082fbffa begin implementing small benchmarks (#26)
FossilOrigin-Name: 64bf804f97086c309db9bd87b5daa2cd086566098e5d9b93845c96920420c585
2020-12-18 19:38:04 +00:00

5 lines
100 B
Forth

~~~
'1,000,000_iterations_of_empty_loops s:put nl
#100 [ #100 [ #100 [ ] times ] times ] times
~~~