Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

    return (sort { $b <=> $a } values %consec)[0];
}

Select or download this
```
1..12
ok 1
...
ok 10
ok 11
ok 12
```