Help for this page

Select Code to Download


  1. or download this
    my $count = 0;
for my $list1 (@List1) {
...
}

print("$count\n");
  2. or download this
    my $tol = 2**(-30);  # ~ 0.000000001

...
}

print("$count\n");