Rubyで書く変なFizzBuzz (Strange FizzBuzz function in Ruby)

fizz_buzz.rb

fizz_buzz = -> (n) do
  f = -> (cond, ans, nxt, n) { n % cond == 0 ? ans : nxt.(n) }.curry
  patterns = [[n, n.to_s], [5, 'Buzz'], [3, 'Fizz'], [15, 'Fizz Buzz']]
  patterns.inject(nil) { |nxt, (cond, ans)| f.(cond, ans, nxt) }.(n)
end

(1..20).map(&fizz_buzz)
=begin
[
    [ 0] "1",
    [ 1] "2",
    [ 2] "Fizz",
    [ 3] "4",
    [ 4] "Buzz",
    [ 5] "Fizz",
    [ 6] "7",
    [ 7] "8",
    [ 8] "Fizz",
    [ 9] "Buzz",
    [10] "11",
    [11] "Fizz",
    [12] "13",
    [13] "14",
    [14] "Fizz Buzz",
    [15] "16",
    [16] "17",
    [17] "Fizz",
    [18] "19",
    [19] "Buzz"
]
=end

関数合成使いたい！　 LiveScriptうらやましい。。
もう1個書いてみました。

adder = ->(m, n) { n + m }.curry
id = ->(n) { n }
blanker = ->(n) { '' }
fizz_blanker = [id, id, blanker].cycle
buzz_blanker = [id, id, id, id, blanker].cycle
fizzer = [id, id, adder.('Fizz')].cycle
buzzer = [id, id, id, id, adder.('Buzz')].cycle
stringizer = [:to_s.to_proc].cycle

(1..20).zip(fizz_blanker, buzz_blanker, fizzer, buzzer, stringizer).map { |a| a.reduce { |n, f| f.(n) } }

ちょっとだけ関数型勉強したいと思って [翻訳] Elixirで書く関数型FizzBuzz - Qiita を読んでRubyにしてみた感じです。