学习真实世界Haskell的一些小练习