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.
sumTo :: Integer -> Integer
sumTo 0 = 0
sumTo n = (n * (n + 1)) div 2
multSum :: Integer -> Integer
multSum 0 = 0;
multSum n = total_sum where
three_max = n div 3;
five_max = n div 5;
fifteen_max = n div 15;
three_mult = 3 * (sumTo three_max);
five_mult = 5 * (sumTo five_max);
fifteen_mult = 15 * (sumTo fifteen_max);
total_sum = three_mult + five_mult - fifteen_mult
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 :: Integer
let sum = multSum (n - 1)
print (sum)
Cookie support is required to access HackerRank
Seems like cookies are disabled on this browser, please enable them to open this website
Project Euler #1: Multiples of 3 and 5
You are viewing a single comment's thread. Return to all comments →
import Control.Applicative import Control.Monad import System.IO
sumTo :: Integer -> Integer sumTo 0 = 0 sumTo n = (n * (n + 1))
div2multSum :: Integer -> Integer multSum 0 = 0; multSum n = total_sum where three_max = n
div3; five_max = ndiv5; fifteen_max = ndiv15; three_mult = 3 * (sumTo three_max); five_mult = 5 * (sumTo five_max); fifteen_mult = 15 * (sumTo fifteen_max); total_sum = three_mult + five_mult - fifteen_multmain :: 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 :: Integer let sum = multSum (n - 1) print (sum)