135 |
$trace[ $turn_pos ] = $old; |
$trace[ $turn_pos ] = $old; |
136 |
|
|
137 |
if ( $board[ $turn_pos ] =~ $ok_path ) { |
if ( $board[ $turn_pos ] =~ $ok_path ) { |
138 |
my $xy = x_y($turn_pos); |
my $xy = x_y($pos); |
139 |
warn "OK can_turn $try_step $step_name[$try_step] turn_pos = $turn_pos b($board[$turn_pos]) t($trace[$turn_pos]) to $xy\n"; |
warn "OK can_turn $try_step $step_name[$try_step] turn_pos = $turn_pos b($board[$turn_pos]) t($trace[$turn_pos]) from $xy\n"; |
140 |
$step = $try_step; |
$step = $try_step; |
141 |
push @corners, $xy; |
push @corners, $xy; |
142 |
return 1; |
return 1; |