Problem:
Problem D: Curling 2.0

On Planet MM-21, after their Olympic games this year, curling is getting popular.
But the rules are somewhat different from ours.
The game is played on an ice game board on which a square mesh is marked.
They use only a single stone.
The purpose of the game is to lead the stone from the start
to the goal with the minimum number of moves.

Fig. D-1 shows an example of a game board.
Some squares may be occupied with blocks.
There are two special squares namely the start and the goal,
which are not occupied with blocks.
(These two squares are distinct.)
Once the stone begins to move, it will proceed until it hits a block.
In order to bring the stone to the goal,
you may have to stop the stone by hitting it against a block,
and throw again.

Fig. D-1: Example of board (S: start, G: goal)

The movement of the stone obeys the following rules:

At the beginning, the stone stands still at the start square.

The movements of the stone are restricted to x and y directions.
Diagonal moves are prohibited.

When the stone stands still, you can make it moving by throwing it.
You may throw it to any direction
unless it is blocked immediately(Fig. D-2(a)).

Once thrown, the stone keeps moving to the same direction until
one of the following occurs:

The stone hits a block (Fig. D-2(b), (c)).

The stone stops at the square next to the block it hit.

The block disappears.

The stone gets out of the board.

The game ends in failure.

The stone reaches the goal square.

The stone stops there and the game ends in success.

You cannot throw the stone more than 10 times in a game.
If the stone does not reach the goal in 10 moves, the game ends in failure.

Fig. D-2: Stone movements

Under the rules, we would like to know whether the stone at the start
can reach the goal and, if yes, the minimum number of moves required.

With the initial configuration shown in Fig. D-1, 4 moves are required
to bring the stone from the start to the goal.
The route is shown in Fig. D-3(a).
Notice when the stone reaches the goal, the board configuration has changed
as in Fig. D-3(b).

Fig. D-3: The solution for Fig. D-1 and the final board configuration

Input

The input is a sequence of datasets.
The end of the input is indicated by a line
containing two zeros separated by a space.
The number of datasets never exceeds 100.

Each dataset is formatted as follows.

the width(=w) and the height(=h) of the board

First row of the board

...

h-th row of the board

The width and the height of the board satisfy:
2 <= w <= 20, 1 <= h <= 20.

Each line consists of w decimal numbers delimited by a space.
The number describes the status of the corresponding square.

0

vacant square

1

block

2

start position

3

goal position

The dataset for Fig. D-1 is as follows:

6 6

1 0 0 2 1 0

1 1 0 0 0 0

0 0 0 0 0 3

0 0 0 0 0 0

1 0 0 0 0 1

0 1 1 1 1 1

Output

For each dataset, print a line having a decimal integer indicating the
minimum number of moves along a route from the start to the goal.
If there are no such routes, print -1 instead.
Each line should not have any character other than
this number.

Sample Input

2 1
3 2
6 6
1 0 0 2 1 0
1 1 0 0 0 0
0 0 0 0 0 3
0 0 0 0 0 0
1 0 0 0 0 1
0 1 1 1 1 1
6 1
1 1 2 1 1 3
6 1
1 0 2 1 1 3
12 1
2 0 1 1 1 1 1 1 1 1 1 3
13 1
2 0 1 1 1 1 1 1 1 1 1 1 3
0 0

Output for the Sample Input

1
4
-1
4
10
-1

Solution in Ruby (judge verdict: Accepted)

### constant

MAX_STEP = 10
DXYS = [[1, 0], [0, -1], [-1, 0], [0, 1]]

### subroutines

def count_rec(k, x, y)
  return k if k > MAX_STEP

  min_count = MAX_STEP + 1

  DXYS.each do |dx, dy|
    x0 = x + dx
    y0 = y + dy
    next if x0 >= 0 && x0 < $w && y0 >= 0 && y0 < $h && $flds[y0][x0] == 1
    while x0 >= 0 && x0 < $w && y0 >= 0 && y0 < $h
      return k if x0 == $gx && y0 == $gy
      if $flds[y0][x0] == 1
        $flds[y0][x0] = 0
        c = count_rec(k + 1, x0 - dx, y0 - dy)
        min_count = c if min_count > c
        $flds[y0][x0] = 1
        break
      end
      x0 += dx
      y0 += dy
    end
  end
  min_count
end

### main

loop do
  $w, $h = gets.split.map(&:to_i)
  break if ($w | $h) == 0

  $flds = $h.times.map{$w.times.map{0}}
  sx = sy = $gx = $gy = 0

  for y in (0...$h)
    line = gets.split.map(&:to_i)
    for x in (0...$w)
      case line[x]
      when 1
        $flds[y][x] = 1
      when 2
        sx = x
        sy = y
      when 3
        $gx = x
        $gy = y
      end
    end
  end
  #p $flds
  #p [sx, sy, $gx, $gy]

  c = count_rec(1, sx, sy)
  puts (c > MAX_STEP ? -1 : c)
end