### TODO: compact with map?
my @list;
foreach (sort {$b <=> $a} keys %nickometer) {
- my $str = join(", ", sort keys %{ $nickometer{$_} });
+ my $str = join(', ', sort keys %{ $nickometer{$_} });
push(@list, "$str ($_%)");
}
&::performStrictReply( &::formListReply(0, "Nickometer list for $term ", @list) );
- &::DEBUG("test.");
return;
}
my $percentage = &nickometer($term);
if ($percentage =~ /NaN/) {
- $percentage = "off the scale";
+ $percentage = 'off the scale';
} else {
$percentage = sprintf("%0.4f", $percentage);
$percentage =~ s/(\.\d+)0+$/$1/;
$text =~ s/^([^\[\]]*) (\[) (.*) (\]) ([^\[\]]*) $/$1$3$5/x)
{
print "Removed $2$4 outside parentheses; nick now $_\n" if $verbose;
- &punish(15, "brackets");
+ &punish(15, 'brackets');
}
my $parentheses = $text =~ tr/(){}[]/(){}[]/;
&punish(&slow_pow(10, $parentheses),