Select Code to Download

$ time perl collatz.pl
837799: 525
...
real    1m37,551s
user    1m9,375s
sys     0m21,031s

#!/usr/bin/perl
use strict;
...

@long_seqs = sort { $b->[1] <=> $a->[1]} @long_seqs;
say  "$_->[0]: $_->[1]" for @long_seqs[0..19];

real    0m34,207s
user    0m34,108s
sys     0m0,124s

#!/usr/bin/perl
use strict;
...

@long_seqs = sort { $b->[1] <=> $a->[1]} @long_seqs;
say  "$_->[0]: $_->[1]" for @long_seqs[0..19];

$ time perl collatz3.pl
837799: 525
...
real    0m1,755s
user    0m1,687s
sys     0m0,061s