57 lines
861 B
Perl
57 lines
861 B
Perl
#!/usr/local/bin/perl
|
|
|
|
@PC2_C=(14,17,11,24, 1, 5,
|
|
3,28,15, 6,21,10,
|
|
23,19,12, 4,26, 8,
|
|
16, 7,27,20,13, 2,
|
|
);
|
|
|
|
@PC2_D=(41,52,31,37,47,55,
|
|
30,40,51,45,33,48,
|
|
44,49,39,56,34,53,
|
|
46,42,50,36,29,32,
|
|
);
|
|
|
|
foreach (@PC2_C) {
|
|
if ($_ ne "-")
|
|
{
|
|
$_--;
|
|
printf "%2d ",$_; }
|
|
else { print "-- "; }
|
|
$C{$_}=1;
|
|
print "\n" if (((++$i) % 8) == 0);
|
|
}
|
|
$i=0;
|
|
print "\n";
|
|
foreach (@PC2_D) {
|
|
if ($_ ne "-")
|
|
{
|
|
$_-=29;
|
|
printf "%2d ",$_; }
|
|
else { print "-- "; }
|
|
$D{$_}=1;
|
|
print "\n" if (((++$i) % 8) == 0); }
|
|
|
|
print "\n";
|
|
foreach $i (0 .. 27)
|
|
{
|
|
$_=$C{$i};
|
|
if ($_ ne "-") {printf "%2d ",$_;}
|
|
else { print "-- "; }
|
|
print "\n" if (((++$i) % 8) == 0);
|
|
}
|
|
print "\n";
|
|
|
|
print "\n";
|
|
foreach $i (0 .. 27)
|
|
{
|
|
$_=$D{$i};
|
|
if ($_ ne "-") {printf "%2d ",$_;}
|
|
else { print "-- "; }
|
|
print "\n" if (((++$i) % 8) == 0);
|
|
}
|
|
print "\n";
|
|
sub numsort
|
|
{
|
|
$a-$b;
|
|
}
|