瀏覽代碼

lpst.pl - added comments. im an idiot who forgot how they built their own datastructures...

master
gashapwn 3 年之前
父節點
當前提交
53a6d0ae44
共有 1 個檔案被更改,包括 4 行新增2 行删除
  1. +4
    -2
      lpst.pl

+ 4
- 2
lpst.pl 查看文件

@@ -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");


Loading…
取消
儲存