Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my @best;
$best[split] = (split)[0] for "@a" =~ /\b((\d+)(?: \2\b)*)/g;
print "highest count is $#best for the number $best[-1]\n";

Select or download this
```
highest count is 3 for the number 2
```