shithub: sl

ref: a70379d7e4b822f532fb0a8ccdd1624a90b64a68
dir: /test/hashtest.sl/

View raw version 
(def (hins1)
  (let ((h (table)))
    (dotimes (n 200000)
      (put! h (mod (rand) 1000) 'apple))
    h))

(def (hread h)
  (dotimes (n 200000)
    (get h (mod (rand) 10000) NIL)))

(time (dotimes (i 100000)
        (table :a 1 :b 2 :c 3 :d 4 :e 5 :f 6 :g 7 :foo 8 :bar 9)))
(time (dotimes (i 100000) (table :a 1 :b 2 :c 3 :d 4 :e 5 :f 6 :g 7 :foo 8)))
(time (dotimes (i 100000) (table :a 1 :b 2 :c 3 :d 4)))
(time (dotimes (i 100000) (table :a 1 :b 2)))
(time (dotimes (i 100000) (table)))