Select Code to Download

#!/usr/bin/perl
# race.pl - example script for MouseRace.pm
...
$arena->add_mouse( color => "green" );

$arena->run_mousy_run;

# MouseRace.pm - a mouse racing module.
package MouseRace;
...
}

1;

# MouseRace/DFS.pm - the default mouse solver routine - using depth fi
+rst search
package MouseRace::DFS;
...
}

1;

# MouseRace/Random.pm - a random mouse solver
package MouseRace::Random;
...
}

1;

# $data -> a data hash for use as a persistent scratch pad
# $current -> your current position (box #)
# $options -> these is a data structure containing your available move
+s.

{
          'relative' => {
...
                         }
        };

while($mouse_code_not_optimised){
$arena->add_mouse(solve=>$code_ref);
$arena->run_mousy_run;
optimise_code($code_ref);
}