Exercise Set 7.1

gistfile1.hs

import System.Environment

sumSquares :: (Integral a) => a -> a
sumSquares n = n*(n+1)*(2*n+1) `div` 6

sumCubes :: (Integral a) => a -> a
sumCubes n = ((n^2 + n) `div` 2)^2

main = do
    args <- getArgs
    let limit = read (head args) :: Int
    putStrLn $ "The sum of squares is " ++ (show $ sumSquares limit)
    putStrLn $ "The sum of cubes is " ++ (show $ sumCubes limit)