We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. All Contests
  2. ProjectEuler+
  3. Project Euler #6: Sum square difference
  4. Discussions

Project Euler #6: Sum square difference

  • yonahel
     + 0 comments

    Haskell

    import Control.Applicative
import Control.Monad
import System.IO


sqSumTo :: Int -> Int
sqSumTo n = ((n * (n+1)) `div` 2 ) ^ 2

sumSqTo :: Int -> Int
sumSqTo n = sum [x * x | x <- [1..n]]

main :: IO ()
main = do
    t_temp <- getLine
    let t = read t_temp :: Int
    forM_ [1..t] $ \a0  -> do
        n_temp <- getLine
        let n = read n_temp :: Int
        print (sqSumTo n - sumSqTo n)