brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-03 02:13:35 +02:00
Code Issues Projects Releases Packages Wiki Activity

Example client: Implement pheromone processing

Browse source
This commit is contained in:
Petr Baudis 2011-12-23 18:33:16 +01:00
parent 043c92f850
commit 4c1b54c993
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
client/example.pl
View file

@ -26,6 +26,9 @@ $/ = "\r\n";
# visual => [ # visual => [
# CHAR[2], ... # CHAR[2], ...
# ] (type-agent character pairs for perceived tiles) # ] (type-agent character pairs for perceived tiles)
# pheromones => [
# { PHID => VALUE, ... }, ...
# ] (pheromone spectrum for perceived tiles)
# } # }
@ -64,6 +67,15 @@ sub tick($$) {
} elsif ($type eq 'visual') { } elsif ($type eq 'visual') {
$value =~ /^([^ ][^ ] )+([^ ][^ ])$/ or die "[ee] type visual wrong value ($value)\n"; $value =~ /^([^ ][^ ] )+([^ ][^ ])$/ or die "[ee] type visual wrong value ($value)\n";
$state->{visual} = [ split(" ", $value) ]; $state->{visual} = [ split(" ", $value) ];
} elsif ($type eq 'pheromones') {
$value =~ /^(\((\d+:[0-9.]+,?)*\) ?)+$/ or die "[ee] type pheromones wrong value ($value)\n";
# Best to read the following from the outside inwards:
$state->{pheromones} = [
map { {
map { split(":", $_) } split(",", $_)
} } map { y/()//d; $_ } split(" ", $value)
];
} }
} }
} }
@ -191,7 +203,18 @@ while (1) {
tick($socket, $state); tick($socket, $state);
# Debug print # Debug print
print $state->{energy} . "\n"; print $state->{energy} . "\n";
print "[", join('], [', @{$state->{visual}}), "]\n"; print "visual [", join('], [', @{$state->{visual}}), "]\n";
# The following could be written more succintly, but it is here
# to show possible iteration over pheromones:
print "pherom ";
for my $i (0..$#{$state->{pheromones}}) {
print "[";
for my $pi (keys %{$state->{pheromones}->[$i]}) {
print "$pi=>".$state->{pheromones}->[$i]->{$pi}." ";
}
print "] ";
}
print "\n";
take_action($socket, $state); take_action($socket, $state);
} }