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:
towerPools :: [Int] -> [(Int, Int)]
towerPools =
((zipWith min . scanl1 max) <*> scanr1 max) >>= zipWith (((,) <*>) . (-))
 
main :: IO ()
Retrieved from "https://rosettacode.org/wiki/Water_collected_between_towers"