Content deleted Content added
m Taku, please look at the text you are dumping! This one contained stray IRC logs |
Kevin Saff (talk | contribs) m Added non-breaking spaces to correct new TT formatting. |
||
Line 12:
sub solve_maze {
my $me = $_[0];
my $dest = $_[1];
return ($me) if $me eq $dest;
my @queue = ($me);
my %route = ($me => [$me]);
while(my $ob = shift @queue) {
foreach my $i (@{$ob->neighbors()}) {
if(!$route{$i}) {
$route{$i} = [ @{$route{$ob}}, $i ];
Line 30:
push @queue, $i;
}
}
}
| |||