Ruby Compose

compose.rb

add = Proc.new{|a| a + 2}
times = Proc.new{|a| a * 2}

def compose2(f, g)
  Proc.new {|*x| f.call(g.call(*x))}
end

def compose(*x)
  x.reduce { |all, a| compose2(all, a) }
end

add_times = compose2(add, times)
puts add_times.call(4) # => (4 * 2) + 2 = 10
ata = compose(add, times, add, times)
p ata.call(4) # => (((4 * 2) + 2) * 2) + 2 = 22