■ [tDiary] fortune.rb

kjanaさん、ZnZさん、どうもです。こんなコードでしょうか？

イマイチエレガントに書けない....。っつーか、まだ間違えてたりして(^^;)。

s = Time.new
def fortune(file)
  res = ""
  line = ""
  IO.readlines(file, "\n%\n").each do |line|
    res = line if rand($.) < 1
  end
  res = line if res == ""
  res = $2 if res =~ /^(%\n)?(.*)\n%\s*\n?$/m
  res
end
 
puts  fortune(ARGV[0])         #(1)
 
#(0..1000).each { fortune(ARGV[0]) }
#p Time.new - s

■ ２つ実装ができたので、どっちが速いのかなぁというわけで時間を図ってみることに（上記のコードの#の部分を有効にして(1)をコメント化）。ascii-artというfortune辞書を10倍にしたファイルを作ってみた。

$ruby test.rb ascii-art-10-times.txt
6.033442

■ 対するは、今のfortuneのコードの簡略化版

s = Time.new
def fortune(path)
  open(path) do |file|
    lines = file.read.split(/%\n/)
    lines[rand(lines.size)]
  end
end
 
(0..1000).each { fortune(ARGV[0]) }
 
p Time.new - s

■ んで、結果。

$ruby fortune-lite.rb ascii-art-10-times.txt
1.542972

■ あり？今のコードの方が速い....。なんか間違ってんのかな？　

教えていただいたコードって、rand($.)でマッチしてもbreakしたらダメなんですよね？

■ うーむ...。どうも、IO.readlines()が遅いみたい。以下のコードを試してみる。

s = Time.new
def fortune(file)
  IO.readlines(file, "\n%\n").each do |line|
  end
end
(0..1000).each { fortune(ARGV[0]) }
p Time.new - s

$ruby test2.rb ascii-art-10-times.txt
5.926064

■ 考えてみたらあり得ない結果とはいえなくもない気がしないでもない（ってどっちだ？(^^;)）。ARGF.getsだともうちょっと速いのかな？

s = Time.new
def fortune(file)
  ARGF.each do |line|
  end
end
 
(0..1000).each { fortune(ARGV[0]) }
p Time.new - s

■ あり？これ、1回、ARGFがEOFまで読み込まれた後、反応しなくなってしまう。なんでだろう。そういうモノなのかな？ ま、いっか。疲れたし(^^;)。

■ おっと、忘れてた。オレの環境はLinux-2.4.18 / ruby 1.7.2 (2002-01-05)[i686-linux]、試したfortune辞書のサイズは59040byte, 1540行だ。

■ ちなみに、いろいろやっている間、先頭が%から始まるfortune辞書では、空文字が返されるバグを見つけた。明日にでも直すか...。