Help for this page

Select Code to Download


  1. or download this
    ...
     @paths = sort { @$a <=> @$b } @paths;
...
push @sets, set(@$_) for @paths;
my   @filtered;
...
  2. or download this
    16:12 >perl 1681_SoPW.pl
(Q R V)
...
(F H I L O T V Z)

16:12 >
  3. or download this
    ...
my   @sets;
...
     @sets = sort { $a->size <=> $b->size } @sets;
my   @filtered;
...
  4. or download this
    17:06 >perl 1681_SoPW.pl
(Q R V)
...
(A C D E H J L N S Z)

17:08 >