一道上海交大研究生入学考试试题：物以稀为贵

zhlong8

递归就行了 47132

zhlong8

表输错了， 43038

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my %map = (
   
7.     1 => [2, 4],
   
8.     2 => [1, 3, 5],
   
9.     3 => [2, 6],
   
10.     4 => [1, 5, 7],
    
11.     5 => [2, 4, 6, 8],
    
12.     6 => [3, 5, 9],
    
13.     7 => [4, 8],
    
14.     8 => [5, 7, 9, 0],
    
15.     9 => [6, 8],
    
16.     0 => [8],
    
17. );
    
18. 
    
19. sub solve {
    
20.     my($n, $last) = @_;
    
21. 
    
22.     if ($n == 1) {
    
23.         return map { [ $_ ] } @{$map{$last}};
    
24.     } else {
    
25.         my @ret = map solve($n-1, $_), @{$map{$last}};
    
26.         unshift @$_, $last for @ret;
    
27.         @ret
    
28.     }
    
29. }
    
30. 
    
31. print "@$_\n" for map {solve 8, $_} 0 .. 9

复制代码

zhlong8

回复 11# hisptoot


    嗯，合并那里写错了