バイナリデータを作成する

gistfile1.rb

N = 100000
f = open("./bin.#{N}.dat", 'w')

result = [0, 0]

1.upto(N) do |i|
  ret = rand() > 0.5 ? 1 : 0
  result[ret] += 1
  f.write ret
end

result.each.with_index do |r, i|
  puts "#{i} : #{r}"
end

f.flush
f.close

0と1のビット数も表示するように（後で確認するため）