我如何在Haskell中实现

我如何在Haskell中实现