Water collected between towers: Difference between revisions

=={{header|Mathematica}} / {{header|Wolfram Language}}==

<lang Mathematica>ClearAll[waterbetween]

waterbetween[h_List] := Module[{mi, ma, ch},

{mi, ma} = MinMax[h];

Sum[

ch = h - i;

Count[

Flatten@

Position[

ch, _?Negative], _?(Between[

MinMax[Position[ch, _?NonNegative]]])]

,

{i, mi + 1, ma}

]

]

h = {{1, 5, 3, 7, 2}, {5, 3, 7, 2, 6, 4, 5, 9, 1, 2}, {2, 6, 3, 5, 2,

8, 1, 4, 2, 2, 5, 3, 5, 7, 4, 1}, {5, 5, 5, 5}, {5, 6, 7, 8}, {8,

7, 7, 6}, {6, 7, 10, 7, 6}};

waterbetween /@ h</lang>

{{out}}

<pre>{2, 14, 35, 0, 0, 0, 0}</pre>