Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
@runs = grep {@{$runs[-1]} == @$_} @runs;

print "@$_\n" for @runs;
  2. or download this
    20 60 65 70 90
20 50 55 70 90
20 30 40 51 52
10 30 40 51 52