Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (Win10) Symbol/Keywords can now be sorted c4f8663 3 years ago 527 Commits
nujel / tests / stress.nuj
Raw
application/octet-stream • 407 B • 18 lines 
#!/usr/bin/env nujel

[def run-count 10,000,000]

[defun test-walker [runs]
       [def ret 0]
       [for [i 0 runs]
            [set! ret [+ ret i]]]
       ret]

[defnd test-bytecode [runs]
       [def ret 0]
       [for [i 0 runs]
            [set! ret [add/int ret i]]]
       ret]

#;[pfmtln "The result is: {}" [test-walker run-count]]
[pfmtln "The bytecode result is: {}" [test-bytecode run-count]]