Michael Wesemann
57 lines
2.7 KiB
Perl
Executable File
57 lines
2.7 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
$p{'2'}=0;
|
|
$p{'3'}=1;
|
|
$p{'4'}=2;
|
|
$p{'5'}=3;
|
|
$p{'6'}=4;
|
|
$p{'7'}=5;
|
|
$p{'8'}=6;
|
|
$p{'9'}=7;
|
|
$p{'10'}=8;
|
|
$p{'11'}=9;
|
|
$p{'12'}=10;
|
|
$p{'18'}=11;
|
|
$p{'14'}=12;
|
|
$p{'15'}=13;
|
|
$p{'16'}=14;
|
|
$p{'17'}=15;
|
|
|
|
|
|
push(@f,'{22, 46, {}, 0, {}, 45},');
|
|
push(@f,'{23, 42, {}, 0, {}, 41},');
|
|
push(@f,'{24, 43, {}, 0, {}, 42},');
|
|
push(@f,'{25, 44, {}, 0, {}, 43},');
|
|
push(@f,'{26, 33, {16}, 1, {19}, 32},');
|
|
push(@f,'{27, 34, {14,15,17}, 3, {21,20,7}, 33},');
|
|
push(@f,'{28, 35, {14,15,17}, 3, {21,20,7}, 34},');
|
|
push(@f,'{29, 36, {14,15,17}, 3, {21,20,7}, 35},');
|
|
push(@f,'{30, 37, {14,15}, 2, {21,20}, 36},');
|
|
push(@f,'{31, 38, {18}, 1, {22}, 37},');
|
|
push(@f,'{32, 39, {18}, 1, {22}, 38},');
|
|
push(@f,'{33, 47, {7,8,9,10,11,12,14,15,16}, 9, {5,4,3,2,1,0,21,20,19}, 46},');
|
|
push(@f,'{34, 48, {7,8,9,10,11,12,14,15}, 8, {5,4,3,2,1,0,21,20}, 47},');
|
|
push(@f,'{35, 49, {18}, 1, {22}, 48},');
|
|
push(@f,'{36, 50, {6,7,8,9,10,11,12,18}, 9, {6,5,4,3,2,1,0,22}, 49},');
|
|
push(@f,'{37, 29, {18}, 1, {22}, 28},');
|
|
push(@f,'{38, 30, {4,14,15,17}, 4, {9,21,20,7}, 29},');
|
|
push(@f,'{39, 31, {2,3,14,15}, 4, {11,10,21,20}, 30},');
|
|
push(@f,'{40, 32, {2,3,18}, 3, {11,10,22}, 31},');
|
|
push(@f,'{41, 23, {16,17}, 2, {19,7}, 23},');
|
|
push(@f,'{42, 24, {14,15}, 2, {21,20}, 24},');
|
|
push(@f,'{43, 25, {14,15,17}, 3, {21,20, 7}, 25},');
|
|
push(@f,'{44, 26, {}, 0, {}, 26},');
|
|
push(@f,'{45, 27, {}, 0, {}, 27},');
|
|
push(@f,'{46, 45, {6,7,8,9,10,11,12,14,15,16,17}, 11, {6,5,8,3,2,1,0,21,20,19,7}, 44}');
|
|
|
|
|
|
for (@f) {
|
|
if (/^(\s*\{\d+,\s*\d+,\s*\{)([^\}]*)(.*)/) {
|
|
$a=$1;$b=$2;$c=$3;@r=split(',',$b);
|
|
$bb='';
|
|
for $n (@r) { $bb.=$p{$n}.','; }
|
|
$bb=~s/\,$//;
|
|
print "$a$bb$c\n";
|
|
}
|
|
}
|