Re: Depth First Search of a Char_Matrix?

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 04/29/2013 01:55 PM, Alex wrote:
>
> 	begin
> 		for R in 2..M'Length(1)-1 loop
> 			for C in 2..M'Length(2)-1 loop
> 				if M(R,C) = '.' then
> 					DFS(R,C-1,'W');

If M (2, 2) = '.' then here you call DFS with X => 2 and Y => 1.

 > 		procedure DFS(X,Y:Integer; Char : Character) is
 > 		   current : Character:= Char;	
 > 		begin
 > 			Put_Line("X = " & X & " Y = " & Y);
 > 			if V(X,Y) = True or M(X,Y) = '/' or M(X,Y) /= current  then

And here you index V with (2, 1).

-- 
Jeff Carter
"Sir Robin the not-quite-so-brave-as-Sir-Lancelot,
who had nearly fought the Dragon of Angnor,
who nearly stood up to the vicious Chicken of Bristol,
and who had personally wet himself at the
Battle of Badon Hill."
Monty Python & the Holy Grail
68