Water collected between towers: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,660 edits
Hout (talk | contribs)
9,660 edits
Line 904: Line 904:
towerPools :: [Int] -> [(Int, Int)]
towerPools :: [Int] -> [(Int, Int)]
towerPools =
towerPools =
zipWith min . scanl1 max <*> scanr1 max >>= zipWith (((,) <*>) . (-))
zipWith min . scanl1 max <*> scanr1 max >>= zipWith ((<*>) (,) . (-))


main :: IO ()
main :: IO ()
Retrieved from "https://rosettacode.org/wiki/Water_collected_between_towers"