我对Graham Hutton的“在Haskell中编程”练习的解决方案