Proc için Haskell'ın çevirme

Question

Haskell'ın Prelude bir işlevin argümanları swapları yararlı bir işlevi vardır uygulamak gerekir. Özel bir yöntemi tanımlamak yerine, Proc sınıfına yama yüklemek istiyorum, böylece Proc#curry ile birlikte flip kullanabilirsiniz. y için bir değer sağlamak üzere

gibi bir şey.

Bunu yapmak için Proc sınıfını nasıl yeniden açacağımı bilmiyorum.

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" 

Güncelleme:

# 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 }