Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (Win10) Bytecode 565f511 3 years ago 540 Commits
nujel / benchmark / for / nujel.nuj
Raw
application/octet-stream • 402 B • 18 lines 
#!/usr/bin/env nujel

[def run-count 1000,000,000]

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

[defn 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]]