面白い検索エンジン、「Mooter」

どうでもいい、じじぃの日記。
また、少し検索エンジンのこと。
日頃は「google」、「goo」などの検索エンジンを使っている。
その他は「excite」など、ちょっと変わった検索エンジンを使ったりしている。
この間、面白い検索エンジンを見つけた。
「mooter」。
「mooter」を使って検索キー「老兵は黙って」で検索すると先頭から5ページに渡ってタイトルに「老兵は黙って去りゆくのみ」のページが表示される。
全部で41件。重複は無いようだ。
表示順はヒットした順別になっているのだろうか。
優れた検索エンジンであることには間違いないようだ。
話変わって
perlrubyの比較のためハッシュのsortプログラムを作ってみた。

                                        • -

perlの場合 (hashsort.pl)
# perl hash sort test hashsort.pl
my %score = (
   "one" => 50,
   "jiji" => 80,
  "tree" => 10
);

# <=>で数値比較 $a <=> $bで昇順
#my @sorted_keys
#  = sort { $score{ $b } <=> $score{ $a } } keys %score;
my @sorted_keys
  = sort { $score{ $a } <=> $score{ $b } } keys %score;
my $i = 0;
print "score = [";
foreach my $key ( @sorted_keys ){
  if (++$i == 3){ print "$key";}
  else { print "$key, ";}
}
print "]\n";
実行結果
C:\test>perl hashsort.pl
score = [tree, one, jiji]

                                        • -

rubyの場合 (hashsort.rb)
# ruby hash sort test hashsort.rb
score = {
   "one" => 50,
   "jiji" => 80,
  "tree" => 10
}
#score.sort {|a, b|
# [b[1], a[0]] <=> [a[1], b[0]] ←文字化けしている?
print "score = "
p ["one", "jiji", "tree"].sort_by{ |x|
  score[x]
}
実行結果
C:\test>ruby hashsort.rb
score = ["tree", "one", "jiji"]