@@ -20,25 +20,26 @@ sub bs_encode ($) {
return join '', map { chr $text[$_ -1] } @$sa;
}
-my $bwt = bs_encode file('/etc/passwd')->slurp;
+my $bwt = bs_encode file('/etc/httpd/conf/mime.types')->slurp;
my $list = Algorithm::MTF::List->new;
for (my $i = 0xff; $i >= 0; $i--) {
$list->insert(chr $i);
+ # $list->insert( Algorithm::MTF::List::Node->new(chr $i) );
}
my $list_mtf = Algorithm::MTF::Encoder->new($list);
my $array = Algorithm::MTF::Array->new;
-for (my $i = 0; $i < 0; $i++) {
+for (my $i = 0; $i < 0x100; $i++) {
$array->[$i] = chr $i;
}
my $array_mtf = Algorithm::MTF::Encoder->new($array);
-timethese(100, {
+timethese(10, {
list => sub {
$list_mtf->encode($bwt);
},
- array => sub {
- $array_mtf->encode($bwt);
- },
+ # array => sub {
+ # $array_mtf->encode($bwt);
+ # },
});
bench.pl
@@ -16,19 +16,19 @@ sub new {
my $self = $class->SUPER::new;
if (not defined $backend) {
-# Algorithm::MTF::List->require or die $@;
-# my $list = Algorithm::MTF::List->new;
-# for (my $i = 0xff; $i >= 0; $i--) {
-# $list->insert(chr $i);
-# }
-# $self->table = $list;
-
- Algorithm::MTF::Array->require or die $@;
- my $array = Algorithm::MTF::Array->new;
- for (my $i = 0; $i < 0x100; $i++) {
- $array->[$i] = chr $i;
+ Algorithm::MTF::List->require or die $@;
+ my $list = Algorithm::MTF::List->new;
+ for (my $i = 0xff; $i >= 0; $i--) {
+ $list->insert(chr $i);
}
- $self->table = $array;
+ $self->table = $list;
+
+# Algorithm::MTF::Array->require or die $@;
+# my $array = Algorithm::MTF::Array->new;
+# for (my $i = 0; $i < 0x100; $i++) {
+# $array->[$i] = chr $i;
+# }
+# $self->table = $array;
} else {
$self->table = $backend;
}
lib/Algorithm/MTF.pm
a55dcf05aa0e98257a9ccc76db5c902e62ca76cc
naoya
naoya@hatena.ne.jp
http://github.com/naoya/perl-algorithm-mtf/commit/58adee360d9814d2071a259ddc9814b6872eefe9
58adee360d9814d2071a259ddc9814b6872eefe9
2008-10-19T07:06:19-07:00
2008-10-19T07:06:19-07:00
change default backend to list
7e23a75640ca1bde601389ccaece8c0bacbae073
naoya
naoya@hatena.ne.jp