cần phải thực hiện lật Haskell cho Proc

Question

Prelude Haskell có một chức năng hữu ích mà giao dịch hoán đổi đối số của một hàm: http://zvon.org/other/haskell/Outputprelude/flip_f.html

tôi cần phải làm như vậy trong Ruby. Thay vì chỉ định nghĩa một phương thức tùy chỉnh, tôi muốn khỉ vá lớp Proc để tôi có thể sử dụng flip cùng với Proc#curry. Một cái gì đó như

f = lambda {|x, y| [x, y]} 
g = f.flip.curry.(2) 

để cung cấp giá trị cho y.

Tôi không biết cách mở lại Proc lớp học để làm điều đó.

Answer 1

class Proc 
    def flip 
    lambda { |x, y| self.(y, x) } 
    end 
end 


f = lambda { |x, y| [x, y] } 
f.flip.(1, 2) 
#=> [2, 1] 

Answer 2

class Proc 
    def flip 
     lambda { |*args| self.curry[*args.reverse] } 
    end 
end 

plus = lambda {|a, b, c| a + b + c } 
p plus['A', 'B', 'C'] # => "ABC" 
p plus.flip['A', 'B', 'C'] # => "CBA" 
p plus.curry['A']['B', 'C'] # => "ABC" 
p plus.curry['A'].flip['B', 'C'] # => "ACB" 

Cập nhật:

# intermediate transformations 
plus.flip.curry['a'] 
lambda {|a, b, c| a + b + c } 
# flip 
lambda {|c, b, a| a + b + c } 
# curry 'a', still a Proc because of currying 
lambda {|b, c| 'a' + b + c }