Rosetta Code

Euler's sum of powers conjecture: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,665 edits
Hout (talk | contribs)
9,665 edits
Line 1,734:
(\(p, s) -> M.member (p - s) sumMap)
(M.keys powerMap >>=
(\p -((>>=) takeWhile. (<flip p)takeWhile (M.keys sumMap) . (>)) <*>= (\ p s -> [(p, s)])))
 
sumMapForRange :: [Int] -> M.Map Int (Int, Int)
Line 1,760:
xs = [1 .. 249]
sumsAndPowers = ((,) . sumMapForRange <*> powerMapForRange) xs
 
showExample :: (M.Map Int (Int, Int), M.Map Int Int) -> [Int] -> (Int, Int) -> String
Retrieved from "https://rosettacode.org/wiki/Euler%27s_sum_of_powers_conjecture"