duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clean up comments

master
unlisted 2012-05-07 17:32:03 -04:00
parent a2d6caf9a0
commit 237a0e13c1
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/DDG/Goodie/Frequency.pm
View File

@ -9,9 +9,8 @@ handle remainder => sub {
if ($_) if ($_)
{ {
my %freq; my %freq;
my %perc;
my @chars = split //, "\L$_";
my $count = 0; my $count = 0;
my @chars = split //, "\L$_";
foreach (@chars) foreach (@chars)
{ {
@ -25,8 +24,6 @@ handle remainder => sub {
my @out; my @out;
foreach my $key (keys %freq) foreach my $key (keys %freq)
{ {
#$perc{$key} = $freq{$key} / $count;
#my $rec = join ":", $key, $freq{$key};
push @out, join " ", (join ":", $key, $freq{$key}), ($freq{$key} / $count); push @out, join " ", (join ":", $key, $freq{$key}), ($freq{$key} / $count);
}; };