RosettaCodeData/Task/Accumulator-factory/VBScript/accumulator-factory-2.vb
2013-04-11 11:14:19 -07:00

8 lines
99 B
VB.net

dim a
set a = new accumulator
x = a( 1 )
a 5
dim b
set b = new accumulator
b 3
wscript.echo a(2.3)