ran it here

This commit is contained in:
Ryan Voots 2011-05-06 21:54:57 -04:00
parent fcb9bfa2f4
commit 3372b61f08
2 changed files with 1 additions and 1 deletions

Binary file not shown.

View file

@ -29,7 +29,7 @@ sub optipeep {
return $min
}
my $user = "dirk";
my $user = "lee";
my $peep = reduce {$a->[0] > $b->[0] ? $b : $a} map {optipeep($_, $user)} @peeps;
print Dumper $peep;