|
|
@@ -381,6 +381,8 @@ sub cell_index($){ |
|
|
|
return ($AXIS{$chr1}, $chr2); |
|
|
|
} |
|
|
|
|
|
|
|
# Creates a hash of the the form |
|
|
|
# $board{cell_notation} = piece_enum |
|
|
|
%board = map { |
|
|
|
$_ => $EMPTY_CELL |
|
|
|
} map { |
|
|
@@ -391,10 +393,10 @@ sub cell_index($){ |
|
|
|
$AXIS_RV{$_} |
|
|
|
}(1...11); |
|
|
|
|
|
|
|
$board{1}{1} = $P1.$DIV.$MG_A; |
|
|
|
$board{"C3"} = $P1.$DIV.$MG_A; |
|
|
|
|
|
|
|
|
|
|
|
printf("%s\n", $board{3}{3}); |
|
|
|
printf("%s\n", $board{"C3"}); |
|
|
|
# disp_board(); |
|
|
|
|
|
|
|
# disp_0("C1"); |
|
|
|