Help for this page

Select Code to Download

Select or download this

open(FILE,'41084109.udp');
$/=\4;
$a = <FILE>;
$b = <FILE>;

Select or download this

open(FILE,'41084109.udp');
$/=\4;
...
     #count the occuarnce of the 4 digits
     $count{$_}++;
}