~crc_/retroforth

ref: 2022.1 retroforth/benchmarks/choose.retro -rw-r--r-- 153 bytes
6db8a84e — crc update release notes 9 months ago
                                                                                
1
2
3
4
5
6
~~~
'1,000,000_iterations_of_choose s:put nl
#1000 [ #500 [ FALSE [ ] [ ] choose ] times ] times
#1000 [ #500 [ TRUE [ ] [ ] choose ] times ] times
~~~