Largest int from concatenated ints: Difference between revisions

Content added Content deleted
Line 207: Line 207:


main = print (map maxcat [[1,34,3,98,9,76,45,4], [54,546,548,60]] :: [Integer])
main = print (map maxcat [[1,34,3,98,9,76,45,4], [54,546,548,60]] :: [Integer])
where
⚫
where sorted = sortBy (flip $ comparing $ take 10 . cycle)
maxcat = read . concat . sorted . map show</lang>
sorted xs = let pad x = concat $ replicate (maxLen `div` length x + 1) x
maxLen = maximum $ map length xs
⚫
in sortBy (flip $ comparing pad) xs

maxcat = read . concat . sorted . map show</lang>


{{out}}
{{out}}
Retrieved from "https://rosettacode.org/wiki/Largest_int_from_concatenated_ints"