#mapのチェーンを逆にする

関数をメソッドチェーンするとなんかみっともない時があるので、逆にしたくなる。

具体的には

[1] pry(main)> [1,2,3].map {|x| x * 2 }
=> [2, 4, 6]

はHaskellだと

λ map (*2) [1,2,3]
[2,4,6]

こう書ける。こんな感じにしたい。ちょっとやってみたらできた。

class Pipe
  attr_accessor :receiver

  def initialize(thunk)
    @thunk = thunk
  end

  def self.map &block
    self.new lambda { |h| h.receiver.map &block }
  end

  def receive receiver
    @receiver = receiver
    self.instance_eval &@thunk
  end
  alias_method :<<, :receive

end

one = Pipe.map {|x| x * 2} << [1,2,3]
p one # => [2,4,6]

two = Pipe.map(&:reverse).receive Pipe.map(&:upcase).receive ["foo", "bar", "baz"]
p two # => ["OOF", "RAB", "ZAB"]

しかしこれはPipeなのか？