Help for this page

Select Code to Download

Select or download this

#! /usr/local/bin/perl
use diagnostics ;
...
    my @all = sort { $b <=> $a } @d1s, @d2s, @d3s, @d4s ;
    print "\n@all \n\n" ; 
}

Select or download this
```
4 4 3 2

...
5 4 4 3

6 4 3 2
```