diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-06-20 04:29:38 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-06-20 04:29:38 +0000 |
| commit | 2a49d1f7e960989b5039cd86056137bcbe875313 (patch) | |
| tree | a5b425effd14a436d9fdb14d6f166962fca37773 | |
| parent | e3e69e0cd2bd1de52257c4cf2739ee6fd668c5cf (diff) | |
improve hash function
| -rw-r--r-- | Echolot/Pinger.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 824525c..523a69d 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Pinger.pm,v 1.6 2002/06/18 17:21:51 weasel Exp $ +# $Id: Pinger.pm,v 1.7 2002/06/20 04:29:38 weasel Exp $ # =pod @@ -23,11 +23,12 @@ use English; use Echolot::Pinger::Mix; use Echolot::Pinger::CPunk; +my @primes = qw{13 1997 173 1051 59 6 97883 197 3 2 109 127 7}; sub makeHash($) { my ($text) = @_; my $sum = 0; for (my $i=0; $i < length($text); $i++) { - $sum += ord( substr($text, $i, 1) ) + $sum += ord( substr($text, $i, 1) ) * $primes[ $i % (scalar @primes) ]; }; return $sum; }; |