From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
12345678 #!/usr/bin/perl -wuse 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";
#!/usr/bin/perl -w
use
strict;
Math::GSL::Sort
qw/gsl_sort/
;
my
@lines
push
,
$_
while
(<>);
$sorted
= gsl_sort(\
,1,
$#lines
+1 );
print
join
(
"\n"
@$sorted
) .