perl snake算法

simon_stone

数组@array = ([1,1],[1,2],[1,3],[2,1],[2,2],[2,3],[3,1],[3,2],[3,3]);
起点为[1,1], ($xmin,$ymin,$xmax,$ymax) = (1,1,3,3);
对该数组进行snake排序,结果为@array1 =  ([1,1],[1,2],[1,3],[2,3],[2,2],[2,1],[3,1],[3,2],[3,3])
请教下，这个排序子过程应该怎么写?

simon_stone

求助，有没有好心人帮忙提供代码，或者给点思路。

ynchnluiti

你这不是已经排好序了吗。

1. print "[$_->[0], $_->[1]]\n" for
   
2.        sort { "$a->[0]$a->[1]" <=> "$b->[0]$b->[1]" } @array;

复制代码

rubyish

shibushi:

1. #!/usr/bin/perl
   
2. 
   
3. my @a = (
   
4.     [ 1, 1 ], [ 1, 2 ], [ 1, 3 ], [ 2, 1 ], [ 2, 2 ], [ 2, 3 ],
   
5.     [ 3, 1 ], [ 3, 2 ], [ 3, 3 ]
   
6. );
   
7. 
   
8. sub snake {
   
9.     my @sort = (
   
10.         sub { sort { $a->[1] <=> $b->[1] } @_ },
    
11.         sub { sort { $b->[1] <=> $a->[1] } @_ }
    
12.     );
    
13.     my %h;
    
14.     push @{ $h{ $_->[0] } }, $_ for @_;
    
15.     map $sort[ $|-- ]->( @{ $h{$_} } ), sort { $a <=> $b } keys %h;
    
16. }
    
17. 
    
18. my @s = snake @a;
    
19. 
    
20. 
    

复制代码