ファイルからランダムな 1 行を選ぶ。 n := 1 while not eof line := read_line if random [0..1] <= 1/n then result := line n := n + 1 return result
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。