Rosetta Code

Water collected between towers: Difference between revisions

Page Discussion

Water collected between towers (view source)

Revision as of 17:37, 19 February 2024

68 bytes added ,  3 months ago
uBasic/4tH - eliminated a global
imported>Thebeez
(Added uBasic/4tH version)
imported>Thebeez
(uBasic/4tH - eliminated a global)
 
Line 1,130:
{{Trans|GW-BASIC}}
<syntaxhighlight lang="basic">Dim @t(20)
k = 1
 
Prock = FUNC (_getWater (1, 5, 3, 7, 2, 1))
Prock = FUNC (_getWater (5, 3, 7, 2, 6, 4, 5, 9, 1, 2, k))
Prock = FUNC (_getWater (2, 6, 3, 5, 2, 8, 1, 4, 2, 2, 5, 3, 5, 7, 4, 1, k))
Prock = FUNC (_getWater (5, 5, 5, 5, k))
Prock = FUNC (_getWater (5, 6, 7, 8, k))
Prock = FUNC (_getWater (8, 7, 7, 6, k))
Prock = FUNC (_getWater (6, 7, 10, 7, 6, k))
End
 
_getWater
Param (1)
Local (2)
 
w = 0
ac@ = Used()
 
For b@ = ac@ - 1 To 0 Step -1
@t(b@) = Pop()
Next
 
Do While FUNC(_netWater (ac@)) > 1 : Loop
 
Print "Block ";ka@;" holds ";w;" water units." : k = k + 1
Return (a@ + 1)
 
_netWater
Line 1,190:
Block 7 holds 0 water units.
 
0 OK, 0:278409</pre>
 
==={{header|Visual Basic .NET}}===
====Version 1====
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/353146"