Water collected between towers: Difference between revisions
→{{header|PicoLisp}}
m (→{{header|Tailspin}}: added "do" (although when and do are actually redundant)) |
|||
Line 1,907:
collected:14
</pre>
=={{header|Phixmonti}}==
{{trans|Phix}}
<lang Phixmonti>include ..\Utilitys.pmt
def collect_water
0 var res
len 1 - 2 swap 2 tolist
for
var i
1 i 1 - slice max >ps
len i - 1 + i swap slice max >ps
i get ps> ps> min swap -
0 max res + var res
endfor
drop
res
enddef
( ( 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 ) )
len for
get dup print " : " print collect_water ?
endfor</lang>
{{out}}
<pre>[1, 5, 3, 7, 2] : 2
[5, 3, 7, 2, 6, 4, 5, 9, 1, 2] : 14
[2, 6, 3, 5, 2, 8, 1, 4, 2, 2, 5, 3, 5, 7, 4, 1] : 35
[5, 5, 5, 5] : 0
[5, 6, 7, 8] : 0
[8, 7, 7, 6] : 0
[6, 7, 10, 7, 6] : 0
=== Press any key to exit ===</pre>
=={{header|PicoLisp}}==
| |||