gistfile1.hs

--
-- Haskell 版本的分錢程式
--
divideInto :: (Integral a) => a -> a -> [a]
divideInto total n = divideAux total n []
  where
    divideAux total n xs
      | n > 0     = divideAux (total-first) (n-1) (first:xs)
      | otherwise = xs
      where
        first = round ( (toRational total) / (toRational n) )