femtolisp/tests/tme.lsp

5 lines
87 B
Scheme

(let ((t (table)))
(time (dotimes (i 2000000)
(put! t (rand) (rand)))))
#t