- 论坛徽章:
- 0
|
本帖最后由 hisptoot 于 2013-03-14 10:51 编辑
- #!/usr/bin/env perl
- my $num = 8;
- my %map = (
- 1 => [2,4],
- 2 => [1,3,5],
- 3 => [2,6],
- 4 => [1,5,7],
- 5 => [2,4,6,8],
- 6 => [3,5,9],
- 7 => [4,8],
- 8 => [5,7,0,9],
- 9 => [6,8],
- 0 => [8]
- );
- my %cal = ( );
- foreach my $key (keys %map) {
- $cal{"$key"."2"} = $#{$map{$key}} + 1;
- }
- for(my $i = 3; $i<=$num; $i++)
- {
- foreach my $key (keys %map) {
- my $count = 0;
- my $j = $i - 1;
- foreach my $pos (@{$map{$key}}) {
- $count += $cal{"$pos$j"};
- }
- $cal{"$key$i"} = $count;
- }
- }
- my $count = 0;
- foreach(0..9)
- {
- $count += $cal{"$_$num"};
- }
- print $count;
复制代码 14826 |
|