delta3.rb

def adv(n)
	l = []
	s = ''
	while (n != 1)
		l << n
		while (n.odd?)
			n = (n * 3 + 1) / 2
			s << '1'
		end
		while (n.even?)
			n /= 2 
			s << '0'
		end
	end
	return [0, l]
end

n = 10001

l = []
a = 100

a.times { l << adv(n); n += 2 }

loop \
{
	c = t = 0
	l.each \
	{
		|l2|
		x = l2[0]
		if (x == l2[1].size) then
			c += 1
			next
		end
		t += l2[1][x].to_s(2).length
		l2[0] += 1
	}
	puts([t, c].join("\t"))
	break if (c == a)
}