You can edit this page using wiki syntax for markup.

Article contents:[[tags: egg]] [[toc:]] == srfi-69 An implementation of SRFI 69 with SRFI 90 extensions. For more information, see [[http://srfi.schemers.org/srfi-69/srfi-69.html|SRFI-69]] and [[http://srfi.schemers.org/srfi-90/srfi-90.html|SRFI-90]]. A straightforward implementation of [[http://en.wikipedia.org/wiki/Binary_search|binary search]]. === Hash Table Procedures ==== make-hash-table <procedure>(make-hash-table [TEST HASH SIZE] [#:test TEST] [#:hash HASH] [#:size SIZE] [#:initial INITIAL] [#:min-load MIN-LOAD] [#:max-load MAX-LOAD] [#:weak-keys WEAK-KEYS] [#:weak-values WEAK-VALUES])</procedure> Returns a new {{HASH-TABLE}} with the supplied configuration. ; {{TEST}} : The equivalence function. ; {{HASH}} : The hash function. ; {{SIZE}} : The expected number of table elements. ; {{INITIAL}} : The default initial value. ; {{MIN-LOAD}} : The minimum load factor. A {{flonum}} in (0.0 1.0). ; {{MAX-LOAD}} : The maximum load factor. A {{flonum}} in (0.0 1.0). ; {{WEAK-KEYS}} : Use weak references for keys. (Ignored) ; {{WEAK-VALUES}} : Use weak references for values. (Ignored) Please note that hash tables are ''not'' guaranteed to compare {{equal?}} to each other, even if they contain exactly the same key/value pairs. ==== alist->hash-table <procedure>(alist->hash-table A-LIST [#:test TEST] [#:hash HASH] [#:size SIZE] [#:initial INITIAL] [#:min-load MIN-LOAD] [#:max-load MAX-LOAD] [#:weak-keys WEAK-KEYS] [#:weak-values WEAK-VALUES])</procedure> Returns a new {{HASH-TABLE}}. The {{HASH-TABLE}} is populated from the {{A-LIST}}. The keyword arguments are per {{make-hash-table}}. If a key occurs multiple times in {{A-LIST}}, the first occurrence will be used in the hash table. ==== hash-table? <procedure>(hash-table? OBJECT)</procedure> Is the {{OBJECT}} a {{hash-table}}? ==== hash-table-size <procedure>(hash-table-size HASH-TABLE)</procedure> The {{HASH-TABLE}} size. ==== hash-table-equivalence-function <procedure>(hash-table-equivalence-function HASH-TABLE)</procedure> The {{HASH-TABLE}} {{equivalence-function}}. ==== hash-table-hash-function <procedure>(hash-table-hash-function HASH-TABLE)</procedure> The {{HASH-TABLE}} {{hash-function}}. ==== hash-table-min-load <procedure>(hash-table-min-load HASH-TABLE)</procedure> The {{HASH-TABLE}} minimum load factor. ==== hash-table-max-load <procedure>(hash-table-max-load HASH-TABLE)</procedure> The {{HASH-TABLE}} maximum load factor. ==== hash-table-weak-keys <procedure>(hash-table-weak-keys HASH-TABLE)</procedure> Does the {{HASH-TABLE}} use weak references for keys? ==== hash-table-weak-values <procedure>(hash-table-weak-values HASH-TABLE)</procedure> Does the {{HASH-TABLE}} use weak references for values? ==== hash-table-has-initial? <procedure>(hash-table-has-initial? HASH-TABLE)</procedure> Does the {{HASH-TABLE}} have a default initial value? ==== hash-table-initial <procedure>(hash-table-initial HASH-TABLE)</procedure> The {{HASH-TABLE}} default initial value. ==== hash-table-keys <procedure>(hash-table-keys HASH-TABLE)</procedure> Returns a list of the keys in the {{HASH-TABLE}} population. ==== hash-table-values <procedure>(hash-table-values HASH-TABLE)</procedure> Returns a list of the values in the {{HASH-TABLE}} population. ==== hash-table->alist <procedure>(hash-table->alist HASH-TABLE)</procedure> Returns the population of the {{HASH-TABLE}} as an {{a-list}}. ==== hash-table-ref <procedure>(hash-table-ref HASH-TABLE KEY)</procedure> Returns the {{VALUE}} for the {{KEY}} in the {{HASH-TABLE}}. Aborts with an exception when the {{KEY}} is missing. ==== hash-table-ref/default <procedure>(hash-table-ref/default HASH-TABLE KEY DEFAULT)</procedure> Returns the {{VALUE}} for the {{KEY}} in the {{HASH-TABLE}}, or the {{DEFAULT}} when the {{KEY}} is missing. ==== hash-table-exists? <procedure>(hash-table-exists? HASH-TABLE KEY)</procedure> Does the {{KEY}} exist in the {{HASH-TABLE}}? ==== hash-table-set! <procedure>(hash-table-set! HASH-TABLE KEY VALUE)</procedure> Set the {{VALUE}} for the {{KEY}} in the {{HASH-TABLE}}. A setter for {{hash-table-ref}} is defined, so <enscript highlight=scheme> (set! (hash-table-ref HASH-TABLE KEY) VALUE) </enscript> is equivalent to <enscript highlight=scheme> (hash-table-set! HASH-TABLE KEY VALUE) </enscript> ==== hash-table-update! <procedure>(hash-table-update! HASH-TABLE KEY [UPDATE-FUNCTION [DEFAULT-VALUE-FUNCTION]])</procedure> Sets or replaces the {{VALUE}} for {{KEY}} in the {{HASH-TABLE}}. The {{UPDATE-FUNCTION}} takes the existing {{VALUE}} for {{KEY}} and returns the new {{VALUE}}. The default is {{identity}} The {{DEFAULT-VALUE-FUNCTION}} is called when the entry for {{KEY}} is missing. The default uses the {{(hash-table-initial-value)}}, if provided. Otherwise aborts with an exception. Returns the new {{VALUE}}. ==== hash-table-update!/default <procedure>(hash-table-update!/default HASH-TABLE KEY UPDATE-FUNCTION DEFAULT-VALUE)</procedure> Sets or replaces the {{VALUE}} for {{KEY}} in the {{HASH-TABLE}}. The {{UPDATE-FUNCTION}} takes the existing {{VALUE}} for {{KEY}} and returns the new {{VALUE}}. The {{DEFAULT-VALUE}} is used when the entry for {{KEY}} is missing. Returns the new {{VALUE}}. ==== hash-table-copy <procedure>(hash-table-copy HASH-TABLE)</procedure> Returns a shallow copy of the {{HASH-TABLE}}. ==== hash-table-delete! <procedure>(hash-table-delete! HASH-TABLE KEY)</procedure> Deletes the entry for {{KEY}} in the {{HASH-TABLE}}. ==== hash-table-remove! <procedure>(hash-table-remove! HASH-TABLE PROC)</procedure> Calls {{PROC}} for all entries in {{HASH-TABLE}} with the key and value of each entry. If {{PROC}} returns true, then that entry is removed. ==== hash-table-clear! <procedure>(hash-table-clear! HASH-TABLE)</procedure> Deletes all entries in {{HASH-TABLE}}. ==== hash-table-merge <procedure>(hash-table-merge HASH-TABLE-1 HASH-TABLE-2)</procedure> Returns a new {{HASH-TABLE}} with the union of {{HASH-TABLE-1}} and {{HASH-TABLE-2}}. Keys that exist in both tables will be taken from {{HASH-TABLE-1}}. ==== hash-table-merge! <procedure>(hash-table-merge! HASH-TABLE-1 HASH-TABLE-2)</procedure> Returns {{HASH-TABLE-1}} as the union of {{HASH-TABLE-1}} and {{HASH-TABLE-2}}. Keys that exist in both tables will be taken from {{HASH-TABLE-1}}. ==== hash-table-map <procedure>(hash-table-map HASH-TABLE FUNC)</procedure> Calls {{FUNC}} for all entries in {{HASH-TABLE}} with the key and value of each entry. Returns a list of the results of each call. ==== hash-table-fold <procedure>(hash-table-fold HASH-TABLE FUNC INIT)</procedure> Calls {{FUNC}} for all entries in {{HASH-TABLE}} with the key and value of each entry, and the current folded value. The initial folded value is {{INIT}}. Returns the final folded value. ==== hash-table-for-each <procedure>(hash-table-for-each HASH-TABLE PROC)</procedure> Calls {{PROC}} for all entries in {{HASH-TABLE}} with the key and value of each entry. ==== hash-table-walk <procedure>(hash-table-walk HASH-TABLE PROC)</procedure> Calls {{PROC}} for all entries in {{HASH-TABLE}} with the key and value of each entry. === Hashing Functions All hash functions return a {{fixnum}} in the range [0 {{BOUND}}). When given the fixnum RANDOMIZATION, these functions will use this to perturb the value; if not specified, the value will differ for each invocation of your program. This is for security reasons; an attacker who knows what a value hashes to can deliberately try to cause collisions, thereby flattening your hash table, effectively reducing it to a list. Always make sure you don't expose any hashed value to an attacker. ==== number-hash <procedure>(number-hash NUMBER [BOUND RANDOMIZATION])</procedure> For use with {{=}} as a {{hash-table-equivalence-function}}. ==== object-uid-hash <procedure>(object-uid-hash OBJECT [BOUND RANDOMIZATION])</procedure> Currently a synonym for {{equal?-hash}}. ==== symbol-hash <procedure>(symbol-hash SYMBOL [BOUND RANDOMIZATION])</procedure> For use with {{eq?}} as a {{hash-table-equivalence-function}}. ==== keyword-hash <procedure>(keyword-hash KEYWORD [BOUND RANDOMIZATION])</procedure> For use with {{eq?}} as a {{hash-table-equivalence-function}}. ==== string-hash <procedure>(string-hash STRING [BOUND START END RANDOMIZATION])</procedure> For use with {{string=?}} as a {{hash-table-equivalence-function}}. The optional {{START}} and {{END}} arguments may be given to limit the hash calculation to a specific sub-section of {{STRING}}. ==== string-ci-hash <procedure>(string-hash-ci STRING [BOUND START END RANDOMIZATION])</procedure><br> <procedure>(string-ci-hash STRING [BOUND START END RANDOMIZATION])</procedure> For use with {{string-ci=?}} as a {{hash-table-equivalence-function}}. ==== eq?-hash <procedure>(eq?-hash OBJECT [BOUND RANDOMIZATION])</procedure> For use with {{eq?}} as a {{hash-table-equivalence-function}}. ==== eqv?-hash <procedure>(eqv?-hash OBJECT [BOUND RANDOMIZATION])</procedure> For use with {{eqv?}} as a {{hash-table-equivalence-function}}. ==== equal?-hash <procedure>(equal?-hash OBJECT [BOUND RANDOMIZATION])</procedure> For use with {{equal?}} as a {{hash-table-equivalence-function}}. ==== hash <procedure>(hash OBJECT [BOUND RANDOMIZATION])</procedure> Synonym for {{equal?-hash}}. ==== hash-by-identity <procedure>(hash-by-identity OBJECT [BOUND RANDOMIZATION])</procedure> Synonym for {{eq?-hash}}. ==== recursive-hash-max-depth <parameter>(recursive-hash-max-depth)</parameter> The maximum structure depth to follow when computing a hash value. The default is {{4}}. ==== recursive-hash-max-length <parameter>(recursive-hash-max-length)</parameter> The maximum vector length to follow when computing a hash value. The default is {{4}}. === Author Original implementation by Felix, then heavily extended by Kon Lovett, now maintained by The CHICKEN Team. === Repository This egg is hosted on the CHICKEN Subversion repository: [[https://anonymous@code.call-cc.org/svn/chicken-eggs/release/6/srfi-69|https://anonymous@code.call-cc.org/svn/chicken-eggs/release/6/srfi-69]] If you want to check out the source code repository of this egg and you are not familiar with Subversion, see [[/egg-svn-checkout|this page]]. === License Copyright (c) 2008-2021, The Chicken Team Copyright (c) 2000-2007, Felix L. Winkelmann All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of the authors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. === Version History ; 0.5.2 (2024-05-02) : Fix missing import ; 0.5.1 (2024-04-24) : Port to CHICKEN 6 ; 0.4.3 (2020-04-15) : Fix return type of {{hash-table-merge!}} entry in types file to be a hash table rather than undefined (see [[https://bugs.call-cc.org/ticket/1718|#1718]]). ; 0.4.2 (2020-03-21) : Cache current min and max length based on load and ''actually resize'' (see [[https://lists.nongnu.org/archive/html/chicken-hackers/2021-03/msg00010.html|https://lists.nongnu.org/archive/html/chicken-hackers/2021-03/msg00010.html]]) ; 0.4 : Fix hashing of keywords now that they are distinct types in CHICKEN 5.1.0 (thanks to [[/users/kon-lovett|Kon Lovett]]) ; 0.3 : Fix hashing of extended numerics (non-flonum, non-fixnum, see [[https://bugs.call-cc.org/ticket/1521|#1521]]). ; 0.2 : Compile with similar performance options as in CHICKEN 4. ; 0.1 : Taken from the srfi-69 core library unit and released as an egg. Description of your changes:

I would like to authenticate

Spam control

What do you get when you subtract 4 from 18?