Water collected between towers: Difference between revisions

Content added Content deleted
m (→‎{{header|Tailspin}}: Use scalars for arithmetic)
Line 3,370: Line 3,370:
<lang tailspin>
<lang tailspin>
templates histogramWater
templates histogramWater
$ -> \( @: 0;
$ -> \( @: 0"1";
[$... -> { leftMax: $ -> #, value: $ } ] !
[$... -> { leftMax: $ -> #, value: ($)"1" } ] !
when <$@..> do @: $; $ !
when <$@..> do @: $; $ !
otherwise $@ !
otherwise $@ !
\) -> \( @: { rightMax: 0, sum: 0 };
\) -> \( @: { rightMax: 0"1", sum: 0"1" };
$(last..1:-1)... -> #
$(last..1:-1)... -> #
$@.sum !
$@.sum !
Line 3,383: Line 3,383:
\) !
\) !
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],