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
An unexpected error occurred. Please try reloading the page. If problem persists, please contact support@hackerrank.com
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)