バシク行列数をRubyで

#バシク行列数
#原典(BASIC): http://ja.googology.wikia.com/wiki/%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E3%83%96%E3%83%AD%E3%82%B0:BashicuHyudora/BASIC%E8%A8%80%E8%AA%9E%E3%81%AB%E3%82%88%E3%82%8B%E5%B7%A8%E5%A4%A7%E6%95%B0%E3%81%AE%E3%81%BE%E3%81%A8%E3%82%81

a = 9
b = (0..Float::INFINITY).each.lazy.map{(0..Float::INFINITY).each.lazy.map{0}} #遅延実行
c = (0..Float::INFINITY).each.lazy.map{0}
h = k = l = 0 #グローバル変数として宣言, 初期化

0.upto(9) do |d|
    b[1] = Array.new(a+1, 1)
    f = 1
    while f>0
        a **= 2
        1.upto(e) do |g| (h = g-1; break) if b[f][g]==0 end
        0.upto(f) do |i|
            0.upto(h) do |j| k += 1 if b[f-i][j] < b[f][j] end
            (l = i; break) if h+1==k or b[f][0]==0
            k = 0
        end
        c = (0..h).map do |m| b[f][m] - b[f-l][m] end
        1.upto(a*l) do |n|
            b[f] = (0..h-1).map do |o| b[f-l][o] + c[o] end
            b[f][h] = b[f-l][h]
            f += 1
        end
        f -= 1
    end
end

p a