{"request":{"endpoint":"https://exercism.org/api/v2/tracks/haskell/exercises/sum-of-multiples/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"23dc245c50114153a6a3e223d5143680","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ nub [x * y | x <- factors, y <- [1..limit], x * y < limit] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":7,"num_iterations":1,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-10-28T07:13:07.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"b3dwyr"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/b3dwyr","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"3437812e098146d08477d02754fc883f","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum . nub $ [x | x <- [1 .. limit - 1], any (\f -> f /= 0 && x `mod` f == 0) factors] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":6,"num_iterations":1,"num_loc":5,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2025-06-20T06:31:03.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Falih26"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/Falih26","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"e0ddaa3895bb48d6bdbe1042d9980455","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [x | x <- [1 .. limit - 1], any ((== 0) . (x `mod`)) (filter (/= 0) factors)] ","num_views":0,"num_stars":9,"num_comments":0,"representation_num_published_solutions":4,"num_iterations":1,"num_loc":18,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-10-01T08:12:25.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"bglgwyng"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/bglgwyng","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"20ba74c6e57c4c3ebcda695549ba2969","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ nub [x * y | x <- factors, y <- [1 .. limit], x * y < limit] ","num_views":0,"num_stars":2,"num_comments":2,"representation_num_published_solutions":4,"num_iterations":1,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-04-20T19:11:48.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"next-direction"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/next-direction","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"176396d1078d416baa796f15d06a3919","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum . nub $ factors >>= takeWhile ( < limit ) . multiples multiples :: Integer -> [Integer] multiples 0 = [0] multiples n = [ m * n | m <- [1..] ] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":4,"num_iterations":1,"num_loc":22,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-10-09T13:51:54.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"hoyajigi"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/hoyajigi","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"05da3e1f72454b09829d7659e3a72ca2","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [n | n <- [1..limit-1], any (\f -> f /= 0 && n `mod` f == 0) factors] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-03-03T17:32:27.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Tommy5678"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/Tommy5678","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"dae2d2a15b6f4f61b0b4cbae19712a92","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ nub [x*y| x <- factors, y <- [1..limit], x*y < limit] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-01-11T06:50:18.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"mathdufo"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/mathdufo","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"cad0eec710ff45eea57e47ee16d31780","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [x | x <- [1 .. limit - 1], any (\f -> f /= 0 && x `mod` f == 0) factors]","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":3,"num_iterations":1,"num_loc":4,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2025-06-20T06:53:57.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"fadlintauzy"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/fadlintauzy","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"8867da8797314e269d5df01b583f2ffe","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Int] -> Int -> Int sumOfMultiples m = sum . nub . multiples' m multiples' :: [Int] -> Int -> [Int] multiples' ms bound = concat . fmap (takeWhile ( Integer -> Integer sumOfMultiples factors limit = sum $ nub $ [x * y | x <- factors, y <- [1 .. limit], x * y < limit] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":2,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2024-03-22T22:15:32.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"zetos-5583"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/zetos-5583","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"38b8f9cde36f4eec94a3f28acac7eb61","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (sum, any) isMultiple :: Integral a => a -> a -> Bool isMultiple 0 _ = False isMultiple factor x = x `mod` factor == 0 sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum multiples ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-06-27T18:10:18.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"harika140901"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/harika140901","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"1abc2e52d8a84ffeb2e43f8ab6a04366","snippet":"module SumOfMultiples (sumOfMultiples) where isMultiple :: Integer -> [Integer] -> Bool isMultiple value factors = or [value `mod` x == 0 | x <- factors, x /= 0 ] sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [x | x <- [0..limit - 1], isMultiple x factors] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":5,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-05-22T21:44:55.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"MarcusXavierr"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/MarcusXavierr","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"ade4c6801ceb4ef397bb46dc2823efd6","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [ x | x <- [1 .. limit - 1], isMultiple x ] where isMultiple x = any (\f -> f /= 0 && x `mod` f == 0) factors ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":6,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2026-01-07T04:56:09.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Hemavathivg"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/Hemavathivg","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"832c234f3a3e43a8a0225fb8268f6600","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum . nub $ factors >>= takeWhile ( < limit ) . multiples multiples :: Integer -> [Integer] multiples 0 = [0] ","num_views":0,"num_stars":14,"num_comments":1,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":8,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-02-22T11:28:02.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"mduerig"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/mduerig","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"26bbb7b798b64dae81704c45f22cb345","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum . nub . concatMap multiples $ filter (/= 0) factors where multiples f = [f, f+f .. limit-1]","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":5,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-09-29T01:31:02.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"avinayak"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/avinayak","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"30cd35ed62fa41d38af610f9c8292f48","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ filter (\x -> any (\y -> y /= 0 && x `mod` y == 0) factors) [1..limit - 1] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":3,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-01-12T17:06:52.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Champii"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/Champii","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"2d441682bed043eb869855af69a9629b","snippet":"module SumOfMultiples (sumOfMultiples) where divides :: Integer -> Integer -> Bool divides n m = (n `mod` m) == 0 sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [x | x <- [1..limit-1], any (divides x) [f | f <- factors, f > 0]] ","num_views":0,"num_stars":5,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":5,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-08-08T18:45:57.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"RedTachyon"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/RedTachyon","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"c2416c52cc5d4ad888b0d20fb217cd3e","snippet":"module SumOfMultiples (sumOfMultiples) where divides :: Integer -> Integer -> Bool divides n m = (n `mod` m) == 0 sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [x | x <- [1..limit-1], any (divides x) [f | f <- factors, f > 0]]","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":20,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-10-26T08:07:16.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"qualia4"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/qualia4","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"7e1d97e3a06946ad96b2836ff41e936d","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ nub multiples where multiples = [x*y | x <- [1..limit], y <- factors, x*y < limit]","num_views":0,"num_stars":1,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":5,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2018-07-13T10:01:29.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"jcbagneris"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/jcbagneris","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"e90679fcf07e473e9c09dd09ccf867d2","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum . nub $ [ x | f <- factors , f /= 0 ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":10,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2026-02-24T18:55:17.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"aylinduran"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/aylinduran","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"04b06b1693a140b19f0430b04b7dc686","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum [ n | n <- [1 .. limit - 1], isMultiple n ] where validFactors = filter (/= 0) factors isMultiple n = any (\f -> n `mod` f == 0) validFactors ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":7,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2026-02-16T05:16:53.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"TANOJ"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/TANOJ","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"a0ae355b83984e7191bd8bb3dd2fc547","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List (nub) sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum $ nub [x * y | x <- factors, y <- [1 .. limit], x * y < limit] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":3,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-12-31T10:32:21.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"Oungseik"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/Oungseik","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"a4ce8ccdcc9a4a0498e1e196304da294","snippet":"module SumOfMultiples (sumOfMultiples) where import Data.List sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum(nub [x * y | x <- factors, y <- [1..limit], x * y < limit])","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":4,"iteration_status":"analyzing","published_iteration_head_tests_status":"passed","published_at":"2024-09-04T04:43:21.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"hoccode"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/hoccode","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}},{"uuid":"2e15c5fec2d84af3a1f021ae9a820f18","snippet":"module SumOfMultiples (sumOfMultiples) where sumOfMultiples :: [Integer] -> Integer -> Integer sumOfMultiples factors limit = sum (filter f [1..limit-1]) where f n = any ((==0) . mod n) (filter (/= 0) factors)","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":4,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-07-26T08:29:34.000Z","is_out_of_date":false,"language":"haskell","author":{"handle":"makols"},"exercise":{"title":"Άθροισμα πολλαπλασίων","icon_url":"https://assets.exercism.org/exercises/sum-of-multiples.svg"},"track":{"title":"Haskell","icon_url":"https://assets.exercism.org/tracks/haskell.svg","highlightjs_language":"haskell"},"links":{"public_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/solutions/makols","private_iterations_url":"https://exercism.org/el/tracks/haskell/exercises/sum-of-multiples/iterations"}}],"meta":{"current_page":1,"total_count":1678,"total_pages":70,"unscoped_total":1678}}}}}

Γλώσσες προγραμματισμού

Μάθε προγραμματισμό με το Jiki

Το Ταξίδι σου

Τα Αγαπημένα σουΝέο

Προνόμια του Exercism

Βίντεο της Κοινότητας

Σειρά σύντομων εισαγωγών

Συνεντεύξεις και ιστορίες

Discord

Φόρουμ

Ξεκινώντας

Καθοδήγηση

Τεκμηρίωση

Συνεισφέροντες

ΜεταφραστέςΝέο

Κάνε δωρεά

Σχετικά με το Exercism

Ο αντίκτυπός μας

Συγχρονισμός GitHubΝέο

Insiders