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

5 lines
100 B
Text

~~~
'Push_and_discard_a_value_1,000,000_times s:put nl
#1000 [ #1000 [ #1 drop ] times ] times
~~~