Water collected between towers: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Tidied) |
|||
Line 1,328:
<lang haskell>import Data.List (replicate, transpose)
-------------- WATER COLLECTED BETWEEN TOWERS ------------
towerPools :: [Int] -> [(Int, Int)]
Line 1,334 ⟶ 1,336:
>>= zipWith ((<*>) (,) . (-))
--------------------------- TEST -------------------------
main :: IO ()
main =
Line 1,346 ⟶ 1,350:
[6, 7, 10, 7, 6]
]
------------------------- DIAGRAMS -----------------------
display :: [(Int, Int)] -> String
| |||