lpst.pl - refactored moves to use a struct
This commit is contained in:
gashapwn
parent
9e89588b7a
commit
8dbc330d45
250
lpst.pl
250
lpst.pl
@ -5,6 +5,8 @@ use strict;
|
||||
|
||||
use utf8;
|
||||
|
||||
my $ARRAY = "ARRAY";
|
||||
|
||||
my $X_BOX_CHR = chr(0x2573);
|
||||
my $GRAY_BOX_CHR = chr(0x2591);
|
||||
my $ALT_US = chr(0x2017);
|
||||
@ -91,6 +93,22 @@ my %AXIS_RV = map {
|
||||
$AXIS{$_} => $_
|
||||
} keys(%AXIS);
|
||||
|
||||
package MoveStruct;
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my $self = { @_ };
|
||||
|
||||
die "invalid MoveStruct {\"mov\"}" unless $self->{"mov"};
|
||||
die "invalid MoveStruct ->{\"type\"}" unless $self->{"type"};
|
||||
die "invalid MoveStruct type" unless ref($self->{"mov"}) eq $ARRAY;
|
||||
|
||||
return bless $self, $class;
|
||||
}
|
||||
|
||||
package main;
|
||||
|
||||
#
|
||||
# /--\ +1
|
||||
@ -110,81 +128,13 @@ my %AXIS_RV = map {
|
||||
|
||||
# [Row move, Diag move]
|
||||
|
||||
my %MOVE = (
|
||||
$MG_A => [
|
||||
[-1, 1], [ 0, 1]
|
||||
],
|
||||
$MG_Q => [
|
||||
[ 0, 1], [ 1, 0], [-1, 0], [ 0,-1],
|
||||
],
|
||||
$MG_I => [
|
||||
[0,0]
|
||||
],
|
||||
$MG_IT => [
|
||||
[ 0,-1], [ 1,-1]
|
||||
],
|
||||
$MG_N => [
|
||||
[-1, 2],
|
||||
[ 1,-2]
|
||||
],
|
||||
$MG_H => [
|
||||
[-3, 2], [-1,-2], [ 1, 2], [ 3,-2]
|
||||
],
|
||||
$MG_RC => [
|
||||
[-1, 0], [-2, 0], [ 1, 0], [ 2, 0]
|
||||
],
|
||||
$MG_S => [
|
||||
[-1, 1], [-2, 2], [ 0, 1], [ 0, 2],
|
||||
[ 0,-1], [ 0,-2], [ 1,-1], [ 2,-2],
|
||||
],
|
||||
$MG_HS => [
|
||||
[-3, 1], [-2,-1], [ 2, 1], [ 3,-1]
|
||||
],
|
||||
$MG_RO => [
|
||||
[-1, 1], [ 0, 1], [ 1, 1], [ 1,-2]
|
||||
],
|
||||
$MG_B => [
|
||||
[-1, 1], [ 0, 1], [ 0,-2], [ 2,-2]
|
||||
],
|
||||
$MG_P => [
|
||||
[-4, 2], [-2, 1], [-2,-2], [-1,-1],
|
||||
[ 1, 1], [ 2,-1], [ 2, 2], [ 4,-2]
|
||||
],
|
||||
$MG_IM => [
|
||||
[-2, 1], [-1,-1], [-1, 2], [ 1, 1],
|
||||
[ 1,-1], [ 2,-1]
|
||||
],
|
||||
$MG_F => [
|
||||
[-1, 0], [-1, 1], [ 0, 1], [ 0,-1],
|
||||
[ 1, 0], [ 1,-1]
|
||||
],
|
||||
$MG_QS => [
|
||||
[-3, 3], [-2, 2], [-2, 0], [-1, 0],
|
||||
[-1, 1], [ 0, 1], [ 0, 2], [ 0, 3],
|
||||
[ 0,-1], [ 0,-2], [ 0,-3], [ 1, 0],
|
||||
[ 1,-1], [ 2, 0], [ 2,-2], [ 3,-3],
|
||||
],
|
||||
$MG_AU => [
|
||||
[-1, 0], [-1, 1], [ 0, 1], [ 0,-1],
|
||||
[ 1, 0], [ 1,-1]
|
||||
],
|
||||
$MG_SY => [
|
||||
[-4, 4], [-3, 3], [-3, 2], [-1,-2],
|
||||
[ 0,-4], [ 0,-3], [ 0, 3], [ 0, 4],
|
||||
[ 1, 2], [ 3,-2], [ 3,-3], [ 4,-4]
|
||||
]
|
||||
);
|
||||
|
||||
my %BLOCK = (
|
||||
);
|
||||
|
||||
# Special cells
|
||||
my $EMPTY_CELL = "_";
|
||||
|
||||
# Shade enum
|
||||
my $SHADE_3_ENUM = 3;
|
||||
my $SHADE_2_ENUM = 2;
|
||||
my $SHADE_1_ENUM = 1;
|
||||
my $SHADE_3_ENUM = 0b011;
|
||||
my $SHADE_2_ENUM = 0b010;
|
||||
my $SHADE_1_ENUM = 0b001;
|
||||
my $EMPTY_ENUM = 0;
|
||||
|
||||
my %SHADE = (
|
||||
@ -194,8 +144,143 @@ my %SHADE = (
|
||||
$EMPTY_ENUM => [$HEX_1, $HEX_2, $HEX_3]
|
||||
);
|
||||
|
||||
my $MOVE_ENUM = $SHADE_1_ENUM;
|
||||
my $BLOCK_ENUM = $SHADE_2_ENUM;
|
||||
my $MOVBLOCK_ENUM = $SHADE_3_ENUM;
|
||||
|
||||
my $ERR_C_1 = -1;
|
||||
|
||||
my %MOVE = (
|
||||
$MG_A => [
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_Q => [
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_I => [
|
||||
MoveStruct->new("mov" => [0,0], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_IT => [
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_N => [
|
||||
MoveStruct->new("mov" => [-1, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-2], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_H => [
|
||||
MoveStruct->new("mov" => [-3, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 3,-2], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_RC => [
|
||||
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2, 0], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_S => [
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2,-2], "type" => $MOVE_ENUM),
|
||||
],
|
||||
$MG_HS => [
|
||||
MoveStruct->new("mov" => [-3, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 3,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_RO => [
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-2], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_B => [
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2,-2], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_P => [
|
||||
MoveStruct->new("mov" => [-4, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 4,-2], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_IM => [
|
||||
MoveStruct->new("mov" => [-2, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_F => [
|
||||
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_QS => [
|
||||
MoveStruct->new("mov" => [-3, 3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-2, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 2,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 3,-3], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_AU => [
|
||||
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-1], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 0], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM)
|
||||
],
|
||||
$MG_SY => [
|
||||
MoveStruct->new("mov" => [-4, 4], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-3, 3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-3, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [-1,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-4], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0,-3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 0, 4], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 1, 2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 3,-2], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 3,-3], "type" => $MOVE_ENUM),
|
||||
MoveStruct->new("mov" => [ 4,-4], "type" => $MOVE_ENUM)
|
||||
]
|
||||
);
|
||||
|
||||
|
||||
my %sc = ();
|
||||
my %board;
|
||||
|
||||
@ -462,7 +547,6 @@ sub apply_shift($$){
|
||||
|
||||
$r0 += $my_shift->[0];
|
||||
$c0 += $my_shift->[1];
|
||||
# die "cell index [$r0, $c0]: out of bound exception" if $r0 > 11 or $c0 > 11 or $r0 < 1 or $c0 < 1;
|
||||
return $ERR_C_1 if $r0 > 11 or $c0 > 11 or $r0 < 1 or $c0 < 1;
|
||||
return cell_index_rev($r0, $c0);
|
||||
}
|
||||
@ -501,23 +585,31 @@ sub calc_move($$){
|
||||
|
||||
|
||||
|
||||
sub shade_move($){
|
||||
my $not = shift;
|
||||
sub shade_move($$){
|
||||
my ($not, $en) = (shift, shift);
|
||||
my $c1;
|
||||
my @mv1;
|
||||
my @mv2;
|
||||
|
||||
$c1 = cell_pi($not);
|
||||
|
||||
@mv1 = @{$MOVE{$c1}};
|
||||
@mv1 = map {
|
||||
$_
|
||||
} grep {
|
||||
($_->{"type"} && $en) eq $en
|
||||
}@{$MOVE{$c1}};
|
||||
|
||||
@mv2 = grep {
|
||||
$_ ne $ERR_C_1
|
||||
$_ if $_->[0] ne $ERR_C_1;
|
||||
} map {
|
||||
calc_move($not, $_)
|
||||
[
|
||||
calc_move($not, $_->{"mov"}),
|
||||
$_->{"type"}
|
||||
]
|
||||
} @mv1;
|
||||
|
||||
for my $mv (@mv2){
|
||||
shade_cell($mv, $SHADE_1_ENUM);
|
||||
shade_cell($mv->[0], $mv->[1]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -541,7 +633,7 @@ my $m1 = "A1";
|
||||
my $c1 = $MG_QS;
|
||||
|
||||
$board{$m1} = $P1.$DIV.$c1;
|
||||
shade_move($m1);
|
||||
shade_move($m1, $MOVE_ENUM);
|
||||
|
||||
disp_board();
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user