Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 9 lines (7 sloc) 187 Bytes
#!/usr/bin/perl -w
use strict;
use Math::GSL::Sort qw/gsl_sort/;
my @lines;
push @lines, $_ while (<>);
my $sorted = gsl_sort(\@lines,1, $#lines +1 );
print join("\n", @$sorted) . "\n";