Perlã®hash - mizuno_takaakiã®æ—¥è¨˜Perlã®hashã£ã¦ç›¸å½“使ã£ã¦ã‚‹ã‘ã©ã€ä¸èº«çŸ¥ã‚‰ãªã„ãªãƒ¼ã€ã¨ãµã¨æ€ã„ã€èª¿ã¹ã¦ã¿ãŸã‚‰ã€ã“ã‚“ãªãƒšãƒ¼ã‚¸ãŒã‚ã£ãŸã€‚ http://www.perl.com/lpt/a/679 2002å¹´ã«æ›¸ã‹ã‚ŒãŸã‚‚ã®ã§ã€ã¡ã‚‡ã£ã¨å¤ã„ã‘ã‚Œã©ã€èªã‚“ã§ã„ã£ãŸã‚‰ã€è©³ã—ã知りãŸã‹ã£ãŸã‚‰ã¨ã‚Šã‚ãˆãšPerl 1.0ã®hash.cã‹ã‚‰å§‹ã‚ãŸã‚‰ã„ã„ã‚“ã˜ã‚ƒãªã„ã‹ã¿ãŸã„ãªã“ã¨ã‹ã‚‰æ›¸ã„ã¦ã‚ã£ã¦ã€ãªã‚‹ã»ã©ã¨æ€ã£ã¦èªã‚“ã§ã¿ãŸã€‚çŸã„。 与ãˆã‚‰ã‚ŒãŸã‚ーã‹ã‚‰ãƒ‡ãƒ¼ã‚¿ã®å…¥ã£ã¦ã„ã‚‹å ´æ‰€ã‚’æŽ¢ã™ãƒãƒƒã‚·ãƒ¥é–¢æ•°ã¨ã—ã¦ã¯ã€ä»¥ä¸‹ã¿ãŸã„ãªãƒ«ãƒ¼ãƒ—。 for (s=key,i=0,hash = 0; /* while */ *s; s++,i++,hash *= 5) { hash += *s * coeff[i]; } oentry = &(tb->tbl_array[hash & tb->tbl_max]); ã“ã‚“ãªæ„Ÿã˜ã§ã€ã‚ーã®æ–‡å—１文å—ãšã¤ã‚’使ã£ã¦coeffã¨ã„
{{#tags}}- {{label}}
{{/tags}}