{"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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/b3dwyr","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/Falih26","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/bglgwyng","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/next-direction","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/hoyajigi","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/Tommy5678","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/mathdufo","private_iterations_url":"https://exercism.org/ar/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":1,"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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/fadlintauzy","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/zetos-5583","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/harika140901","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/MarcusXavierr","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/Hemavathivg","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/mduerig","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/avinayak","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/Champii","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/RedTachyon","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/qualia4","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/jcbagneris","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/aylinduran","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/TANOJ","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/Oungseik","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/hoccode","private_iterations_url":"https://exercism.org/ar/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/ar/tracks/haskell/exercises/sum-of-multiples/solutions/makols","private_iterations_url":"https://exercism.org/ar/tracks/haskell/exercises/sum-of-multiples/iterations"}}],"meta":{"current_page":1,"total_count":1680,"total_pages":70,"unscoped_total":1680}}}}}

مسارات اللغات

تعلّم البرمجة مع Jiki

رحلتك

مفضلاتكجديد

مزايا Exercism

فيديوهات المجتمع

سلسلة المقدمات الموجزة

مقابلات وقصص

Discord

المنتدى

البدء

الإرشاد

الوثائق

المساهمون

المترجمونجديد

تبرّع

عن Exercism

أثرنا

مزامن GitHubجديد

Insiders