Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def ab (int-array 1000 (take 1000 (repeatedly #(rand-int 10)))))
- (def b (vec (map identity ab)))
- (dotimes [_ 10] (time (areduce ab i ret (int 0) (+ ret (aget ab i)))))
- "Elapsed time: 124.214114 msecs"
- "Elapsed time: 74.92295 msecs"
- "Elapsed time: 77.944546 msecs"
- "Elapsed time: 73.070748 msecs"
- "Elapsed time: 72.481562 msecs"
- "Elapsed time: 71.562463 msecs"
- "Elapsed time: 74.204127 msecs"
- "Elapsed time: 71.071614 msecs"
- "Elapsed time: 71.781191 msecs"
- "Elapsed time: 71.308517 msecs"
- (dotimes [_ 10] (time (reduce + b)))
- "Elapsed time: 0.97247 msecs"
- "Elapsed time: 0.566829 msecs"
- "Elapsed time: 0.566554 msecs"
- "Elapsed time: 0.538055 msecs"
- "Elapsed time: 0.581637 msecs"
- "Elapsed time: 0.586387 msecs"
- "Elapsed time: 0.536942 msecs"
- "Elapsed time: 13.174586 msecs"
- "Elapsed time: 8.873744 msecs"
- "Elapsed time: 0.614046 msecs"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement