Login
7 branches 0 tags
Ben (X13/Arch) Optimized the scheme benchmark a bit 6affa29 3 years ago 925 Commits
nujel / benchmark / for / nujel.nuj
#!/usr/bin/env nujel

[defn bench-run []
      [def ret 0]
      [dotimes [i 10,000,000 ret]
        [set! ret [+ ret i]]]]

[pfmtln "The result is: {}" [bench-run]]