1 ! Copyright (C) 2013 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: accessors assocs hashtables hashtables.wrapped kernel
5 math math.hashcodes parser vocabs.loader ;
12 { underlying number read-only } ;
14 C: <number-wrapper> number-wrapper
16 M: number-wrapper equal?
18 [ [ underlying>> ] bi@ number= ]
19 [ 2drop f ] if ; inline
21 M: number-wrapper hashcode*
22 nip underlying>> number-hashcode ; inline
26 TUPLE: number-hashtable < wrapped-hashtable ;
28 : <number-hashtable> ( n -- shashtable )
29 <hashtable> number-hashtable boa ; inline
31 M: number-hashtable wrap-key drop <number-wrapper> ;
33 M: number-hashtable clone
34 underlying>> clone number-hashtable boa ; inline
36 : >number-hashtable ( assoc -- shashtable )
37 [ assoc-size <number-hashtable> ] keep assoc-union! ;
39 M: number-hashtable new-assoc drop <number-hashtable> ;
41 SYNTAX: NH{ \ } [ >number-hashtable ] parse-literal ;
43 USE-WHEN-LOADED: hashtables.numbers.prettyprint { "hashtables.numbers" "prettyprint" }