Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (Win10) Reordered [$apply/dyanmic] argument order 7198547 3 years ago 523 Commits
nujel / tests / stress.nuj
Raw
application/octet-stream • 399 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 [+ ret i]]]
       ret]

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