suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cheaply computing equal-hash-table codes.

Browse Source
This commit is contained in:
Danny Yoo 2011-11-04 18:05:21 -04:00
parent c8bc9c182d
commit 6e9733afec
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
js-assembler/runtime-src/baselib-hashes.js
View File

@ -178,9 +178,9 @@
// Returns a JavaScript number.
var getEqualHashCode = function (x, depth) {
var i, t, k = 0;
if (depth === undefined) { depth = 0; }
if (depth === undefined) { depth = [0]; }
if (depth > MAX_HASH_DEPTH) { return 0; }
if (depth[0] > MAX_HASH_DEPTH) { return 0; }
if (baselib.numbers.isNumber(x)) {
return hashMix(baselib.numbers.toFixnum(x));
@ -201,7 +201,8 @@
if (typeof(x) === 'object' &&
typeof(x.hashCode) === 'function') {
return x.hashCode(depth + 1);
depth[0] = depth[0] + 1;
return x.hashCode(depth);
}
return 0;
};

18
tests/more-tests/hash-code.rkt
View File

@ -46,14 +46,14 @@
"structs"
(define-struct thing (name age) #:mutable)
(equal-hash-code (make-thing "danny" 32))
(void (equal-hash-code (shared ([a (make-thing a a)]) a)))
(equal-hash-code (shared ([a (make-thing a a)]) a))
;; ;; symbols
;; "symbols"
;; (equal-hash-code 'hello)
;; (equal-hash-code 'world)
;; symbols
"symbols"
(equal-hash-code 'hello)
(equal-hash-code 'world)
;; ;; vectors
;; "vectors"
;; (equal-hash-code #(1 2 3 4 5))
;; (equal-hash-code (shared ([v (vector 1 2 v 3 v)]) v))
;; vectors
"vectors"
(equal-hash-code #(1 2 3 4 5))
(equal-hash-code (shared ([v (vector 1 2 v 3 v)]) v))