Water collected between towers: Difference between revisions
Content added Content deleted
m (→more efficient two-pass version: ah, I now know what I did...) |
m (→{{header|Tailspin}}: update to stricter typing) |
||
Line 3,645: | Line 3,645: | ||
templates histogramWater |
templates histogramWater |
||
$ -> \( @: 0"1"; |
$ -> \( @: 0"1"; |
||
[$... -> { leftMax: $ -> #, value: ($)"1" } ] ! |
[$... -> ($)"1"-> { leftMax: $ -> #, value: ($)"1" } ] ! |
||
when <$@..> do @: $; $ ! |
when <$@..> do @: $; $ ! |
||
otherwise $@ ! |
otherwise $@ ! |
||
Line 3,657: | Line 3,657: | ||
\) ! |
\) ! |
||
end histogramWater |
end histogramWater |
||
[[1, 5, 3, 7, 2], |
[[1, 5, 3, 7, 2], |
||
[5, 3, 7, 2, 6, 4, 5, 9, 1, 2], |
[5, 3, 7, 2, 6, 4, 5, 9, 1, 2], |
||
Line 3,669: | Line 3,669: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
2 water in [1, 5, 3, 7, 2] |
2"1" water in [1, 5, 3, 7, 2] |
||
14 water in [5, 3, 7, 2, 6, 4, 5, 9, 1, 2] |
14"1" water in [5, 3, 7, 2, 6, 4, 5, 9, 1, 2] |
||
35 water in [2, 6, 3, 5, 2, 8, 1, 4, 2, 2, 5, 3, 5, 7, 4, 1] |
35"1" water in [2, 6, 3, 5, 2, 8, 1, 4, 2, 2, 5, 3, 5, 7, 4, 1] |
||
0 water in [5, 5, 5, 5] |
0"1" water in [5, 5, 5, 5] |
||
0 water in [5, 6, 7, 8] |
0"1" water in [5, 6, 7, 8] |
||
0 water in [8, 7, 7, 6] |
0"1" water in [8, 7, 7, 6] |
||
0 water in [6, 7, 10, 7, 6] |
0"1" water in [6, 7, 10, 7, 6] |
||
</pre> |
</pre> |
||