Advertisement
Guest User

Untitled

a guest
Feb 24th, 2012
41
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.85 KB | None | 0 0
  1. (def ab (int-array 1000 (take 1000 (repeatedly #(rand-int 10)))))
  2.  
  3. (def b (vec (map identity ab)))
  4.  
  5. (dotimes [_ 10] (time (areduce ab i ret (int 0) (+ ret (aget ab i)))))
  6. "Elapsed time: 124.214114 msecs"
  7. "Elapsed time: 74.92295 msecs"
  8. "Elapsed time: 77.944546 msecs"
  9. "Elapsed time: 73.070748 msecs"
  10. "Elapsed time: 72.481562 msecs"
  11. "Elapsed time: 71.562463 msecs"
  12. "Elapsed time: 74.204127 msecs"
  13. "Elapsed time: 71.071614 msecs"
  14. "Elapsed time: 71.781191 msecs"
  15. "Elapsed time: 71.308517 msecs"
  16.  
  17.  
  18. (dotimes [_ 10] (time (reduce + b)))
  19. "Elapsed time: 0.97247 msecs"
  20. "Elapsed time: 0.566829 msecs"
  21. "Elapsed time: 0.566554 msecs"
  22. "Elapsed time: 0.538055 msecs"
  23. "Elapsed time: 0.581637 msecs"
  24. "Elapsed time: 0.586387 msecs"
  25. "Elapsed time: 0.536942 msecs"
  26. "Elapsed time: 13.174586 msecs"
  27. "Elapsed time: 8.873744 msecs"
  28. "Elapsed time: 0.614046 msecs"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement