lol.rb

require 'matchrb/global'

divisible_by = lambda {|number, value| value % number == 0}.curry

fizzbuzz = lambda do |i|
  match i,
    divisible_by[15] => "Fizz Buzz",
    divisible_by[5]  => "Buzz",
    divisible_by[3]  => "Fizz",
    otherwise        => i
end

cons = lambda { |x, y|
  lambda { |m|
    m[ x, y ]
  }
}

car = lambda { |z|
  z[ lambda { |p, q| p } ]
}

cdr = lambda { |z|
  z[ lambda { |p, q| q } ]
}

null = lambda { |list|
  list == nil
}

map = lambda { |fn, items|
  if null[ items ]
    nil
  else
    cons[ fn[ car[ items ] ],
          map[ fn, cdr[ items ] ]
    ]
  end
}

range = lambda { |start, finish|
  if start == finish
    cons[finish, nil]
  else
    cons[start, range[start + 1, finish]]
  end
}

print_list = lambda { |list|
  print = lambda { |el| puts el }
  map[print, list]
}

print_list[ map[ fizzbuzz, range[ 1, 100 ] ] ]