2008-02-24 メモ misc ファイルからランダムな 1 行を選ぶ。 n := 1 while not eof line := read_line if random [0..1] <= 1/n then result := line n := n + 1 return result