Доброго времени суток, кто бы ты ни был. Есть задачка, но она завязана на руби. Я не рубист, но пытаюсь понять изо всех сил. Собственно код

def f(n)
_,a,b,c,d=->(a,b;c,d){c,a,d=[[b,d||0,a%b]]+(c||[]),a/b,1+(d||0)while(a>0);c.map{|a,c,d|[a,(c>b)?_[c,b]:c,d]}},0,->a{a==[a]?a.map{|a,c,d|b[a]b[c]b[d]}.reduce(:+):a},->(a,b){a==[*a]?a.map{|d|d.map{|_|c[_,b]}}:a+((a==b)?1:0)},n;d,a=b[c[_[d,a+2],a+2]]-1,(a+1)while(d>0);a
end

Одна большая лямбда или как она там в руби называется. Кто-нибудь может подсказать, что она делает? Или перевесть хоть кусок в читаемый кусок? При аргументах 0..3 всё отрабатывает шустро, при 4 выполняется бесконечно долго. А мне нужен результат с четвёркой.
С меня как всегда нихуя