Help for this page

Select Code to Download

Select or download this

sub foo {
   my ($reset) = @_;
...
print foo(1), "\n";  # 3
print foo(0), "\n";  # 1
print foo(0), "\n";  # 2