Haskell Triangle Solution