678948068b
-=-=-=-=-=-=-=-=-=-=-=-=-= -Begin work on Navigation Meshes (simple pathfinding for now, will improve soon) -More doc on theme overriding -Upgraded OpenSSL to version without bugs -Misc bugfixes
18 lines
212 B
Raku
18 lines
212 B
Raku
#!/usr/local/bin/perl
|
|
|
|
#node 10 -> 4
|
|
|
|
while (<>)
|
|
{
|
|
next unless /^node/;
|
|
chop;
|
|
@a=split;
|
|
$num{$a[3]}++;
|
|
}
|
|
|
|
@a=sort {$a <=> $b } keys %num;
|
|
foreach (0 .. $a[$#a])
|
|
{
|
|
printf "%4d:%4d\n",$_,$num{$_};
|
|
}
|