Botclean2.pl

#!/usr/bin/perl
$n=5;
## Reading in Bots position and setting up comparison
$linea = <STDIN>;
chomp($linea);
foreach ($linea) { s/^\s+//; s/\s+$//; s/\s+/ /g;}
@bot = split(/ /, $linea);

$by = $bot[0];
$bx = $bot[1];

## Reading in the grid in a 2D array so elements are easily accessable
for ($in=0; $in<$n; $in++) {
	$line = <STDIN>;
	chomp($line);
	@gridA = split(//, $line);
	$gridA = [ @gridA ];
	push (@grid, $gridA);
}
## Running subroutine
next_move($mx, $my, @grid);

## Defining subroutine
sub next_move {

	my($mx, $my, $grid) = @_;
	$n=5;
    $nodirt = 0;
	for ($i=0; $i<$n; $i++) {
		for ($j=0; $j<$n; $j++) {
            if ($grid[$i][$j] eq "d") {  ## Identifying dirty cells
                $nodirt = 1;
				$dy = $i;
				$dx = $j;
				$dirtdis = sqrt(($dx-$bx)**2 + ($dy-$by)**2);## Comparing dirty cell distance to bot
				$getit{$dirtdis} = "$dx"."$dy";
			}
		}
	}
## Looking for dirt
if ($nodirt == 0 ) {
    $dirx = 4 - $bx;
    $diry = 4 - $by;
    if (($dirx > 0)&&($diry > 2)) {
		print "RIGHT\n"; 
    }	
    elsif (($dirx == 0)&&($diry > 0)) { 
            print "DOWN\n";
	}
	elsif (($dirx == 0)&&($diry == 0)) {
            print "LEFT\n"; 	
    	
    }
}
elsif ($nodirt == 1) {    
    
    
    
    
## Arranging a list for the bot to handle based on distance to bot
	foreach $dirtycell (sort keys %getit) {
	@dirtpos = split(//,$getit{$dirtycell});	
	$orderget = [("$dirtpos[0]", "$dirtpos[1]")];
	push (@botget, $orderget);
	}	

	if (($botget[0][0] == $bx)&&($botget[0][1] == $by)) { print "CLEAN\n";}
	else {
		$dirx = $botget[0][0] - $bx;
    		if ($dirx > 0 ) {
			print "RIGHT\n"; 
			
		}
    		elsif ($dirx < 0 ) {
			 print "LEFT\n"; 
		
		}
   		elsif ($dirx == 0) { 
        		$diry = $botget[0][1] - $by;
        		if ($diry < 0 ) {
        	    		print "UP\n"; 	
			}
       	 		elsif ($diry > 0 ) {
           			print "DOWN\n";
	    		}
			elsif ($diry == 0) {
				print "CLEAN\n";
				splice (@botget, 0, 1);
			}	
    		}
	}
}
}
# Tail starts here