Mercurial > hg > xemacs-beta

comparison tests/automated/hash-table-tests.el @ 1761:db7c7e251153

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-23 12:48:45 by stephent] <87he20ku09.fsf@tleepslib.sk.tsukuba.ac.jp> <87d6coktw8.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 23 Oct 2003 12:48:49 +0000
parents 576fb035e263
children 479443c0f95a
comparison
equal deleted inserted replaced
1760:0240ff815597 1761:db7c7e251153
101 (Assert (eq (gethash j ht) (- j))) 101 (Assert (eq (gethash j ht) (- j)))
102 (Assert (= (hash-table-count ht) (1+ j)))) 102 (Assert (= (hash-table-count ht) (1+ j))))
103 103
104 (let ((k-sum 0) (v-sum 0)) 104 (let ((k-sum 0) (v-sum 0))
105 (maphash #'(lambda (k v) (incf k-sum k) (incf v-sum v)) ht) 105 (maphash #'(lambda (k v) (incf k-sum k) (incf v-sum v)) ht)
106 (print k-sum)
107 (print v-sum)
108 (Assert (= k-sum (/ (* size (- size 1)) 2))) 106 (Assert (= k-sum (/ (* size (- size 1)) 2)))
109 (Assert (= v-sum (- k-sum)))) 107 (Assert (= v-sum (- k-sum))))
110 108
111 (let ((count size)) 109 (let ((count size))
112 (dotimes (j size) 110 (dotimes (j size)