namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx> wrote:

>>namazu-1.2.0-proto-4.tar.gz にはひどいバグがあります。 
>>namazu-1.2.0-proto-5.tar.gz をお試しください。
>
>namazu-1.2.0-proto-5.tar.gz にはひどいバグがあります。 
>namazu-1.2.0-proto-6.tar.gz をお試しください。

namazu-1.2.0-proto-6.tar.gz にはひどいバグがあります。 
namazu-1.2.0-proto-7.tar.gz をお試しください ;-)。

まだあやしいような気がしますが、そこそこまともになってきたと思いま
す。ところで、

>UNIX MAGAZINE 5月号に載っていた「Knuth先生の hash」を実
>装してみました。mknmz と namazu で共通の乱数表を使っています。

これはよく読んだら、今回の場合は 0-255までの乱数しか必要ないような
ので

#!/usr/bin/perl

use strict;
my ($i, $j, @used);
srand;
for ($i = 0; $i < 4; $i++) {
    @used = ();
    for ($j = 0; $j < 256; $j++) {
	my ($tmp);
	do {
	    $tmp = int (rand 256);
	} while ($used[$tmp]);
	if ($j % 8 == 0) {
	    print "\n";
	}
	print $tmp, ", ";
	$used[$tmp] = 1;
    }
    print "\n\n";
}

のようなプログラムを作って 0-255までの数を一回づつ使った乱数表を 4
つ作りました。これを適当に Cと Perl用に加工して利用しています。

--
高林 哲 Satoru Takabayashi