Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Tests were taking too little time

  • Loading branch information...
commit 728bca1f1cdd5c723ce4602b4d45f533c7285be1 1 parent 5257fa3
@chrismgray authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/persistent_data_structures/hash_map.clj
View
4 src/persistent_data_structures/hash_map.clj
@@ -126,11 +126,11 @@
(.containsKey (assoc p 1 2) 1)
(get (assoc p 1 2) 1)
(let [q (apply assoc (empty-phash-map) (range 1600))]
- (time (dotimes [n 100]
+ (time (dotimes [n 10000]
(get q (rand-int 800)))))
(let [q (apply assoc {} (range 1600))]
- (time (dotimes [n 100]
+ (time (dotimes [n 10000]
(get q (rand-int 800)))))
(time (dotimes [n 100]
(apply assoc (empty-phash-map) (range 200))))
Please sign in to comment.
Something went wrong with that request. Please try again.