gashapwn/lpst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lpst.pl - refactored shade_move to remove redundant arrays

Browse Source
This commit is contained in:
gashapwn 2021-04-04 23:25:25 +00:00
parent 8dbc330d45
commit 3af63ea303
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lpst.pl
View File

@ -589,26 +589,21 @@ sub shade_move($$){
my ($not, $en) = (shift, shift); my ($not, $en) = (shift, shift);
my $c1; my $c1;
my @mv1; my @mv1;
my @mv2;
$c1 = cell_pi($not); $c1 = cell_pi($not);
@mv1 = map { @mv1 = grep {
$_
} grep {
($_->{"type"} && $en) eq $en
}@{$MOVE{$c1}};
@mv2 = grep {
$_ if $_->[0] ne $ERR_C_1; $_ if $_->[0] ne $ERR_C_1;
} map { } map {
[ [
calc_move($not, $_->{"mov"}), calc_move($not, $_->{"mov"}),
$_->{"type"} $_->{"type"}
] ]
} @mv1; } grep {
($_->{"type"} && $en) eq $en
} @{$MOVE{$c1}};
for my $mv (@mv2){ for my $mv (@mv1){
shade_cell($mv->[0], $mv->[1]); shade_cell($mv->[0], $mv->[1]);
} }
} }