Re: Complex Sort - using varying numbers of parameters

[Abigail-II]

Use a Guttman-Rosler Transform:

#!/usr/bin/perl
use strict;
use warnings 'all';
print "@$_\n" foreach map {[unpack 'N*',  $_]}
                      sort
                      map { pack   'N*', @$_}
                      map {[/\d+/g]} <DATA>;
__DATA__
5 32 37
5 32 38  
5 32 39
3 12 11 19 20
3 12 11 21
3 12 22
3 12 23
5 32 40  
3 12 24
5 32 41
3 25
5 32 42
2 26   
5 32 43
2 26 27   
2 26 28     
2 26 29  
0 1
1 2  
1 3  
3 12 10
1 4  
3 12 11
1 5  
3 12
2 6
3 12 13
3 12 7
3 12 11 19 14
3 12 8
2 26 30
3 12 11 19 15
3 12 9 
5 32 31  
3 12 11 19 16
5 32
3 12 11 19 17
5 32 33
3 12 11 19 18
5 32 34  
3 12 11 19
5 32 35
5 32 36

Abigail