Help for this page

Select Code to Download

Select or download this

use strict;
for my $testcase ([1,1,1,0,1],[1,1,1,1,1],[1,10,101]) {
...
               print "\n@results_file\n";
    }
}