[urisagit/Sort-Maker.git] / exp / num_NA.pl

#!/usr/local/bin/perl

use Sort::Maker ;

my $sorter = make_sorter( 'GRT', number => '/\D/ ? 0 : $_' ) ;
print "$@" unless $sorter ;


print map "$_\n", $sorter->( qw( 22 1 10 NA 33 NA ) ) ;
Commit	Line	Data
7468c584	1	#!/usr/local/bin/perl
	2
	3	use Sort::Maker ;
	4
	5	my $sorter = make_sorter( 'GRT', number => '/\D/ ? 0 : $_' ) ;
	6	print "$@" unless $sorter ;
	7
	8
	9	print map "$_\n", $sorter->( qw( 22 1 10 NA 33 NA ) ) ;
	10
	11
	12
	13