在Python中实现Haskell的Monad类

在Python中实现Haskell的Monad类，可以使用类和装饰器来实现。下面是一个例子：

class Monad:
    def __init__(self, value):
        self.value = value
    
    def __repr__(self):
        return f'{self.__class__.__name__}({self.value})'
    
    def bind(self, func):
        return func(self.value)
    
    @classmethod
    def unit(cls, value):
        return cls(value)

def add_one(value):
    return Monad.unit(value + 1)

def square(value):
    return Monad.unit(value ** 2)

m = Monad.unit(2).bind(add_one).bind(square)
print(m)  # 输出: Monad(9)

在上面的例子中，首先定义了一个Monad类，该类有一个value属性，表示Monad的值。__repr__方法用于打印Monad的值。bind方法是Monad类的核心方法，它将一个函数应用于当前Monad的值，并返回一个新的Monad对象。unit是一个类方法，它创建一个新的Monad对象，并将给定的值作为其值。

然后，定义了两个示例函数add_one和square，它们分别接受一个整数作为参数，并将结果包装在Monad对象中返回。

在主程序中，首先通过Monad.unit方法创建一个值为2的Monad对象。然后通过bind方法将add_one函数应用于该Monad对象，得到一个值为3的新Monad对象。接着再次应用bind方法，将square函数应用于这个新Monad对象，得到一个值为9的最终Monad对象。最后，通过print函数将最终Monad对象打印出来。