Update Changes file

[Math-GSL.git] / examples / gsl_sort

#!/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";