frequency counter plugin

duckduckgo · May 6, 2012 · d7d68f3 · d7d68f3
1 parent 586dd1c
commit d7d68f3
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/lib/DDG/Goodie/Frequency.pm b/lib/DDG/Goodie/Frequency.pm
@@ -0,0 +1,29 @@
+package DDG::Goodie::Frequency;
+# ABSTRACT: Displays frequency of each character
+
+use DDG::Goodie;
+
+triggers start => 'frequency';
+
+handle remainder => sub {
+    if ($_)
+    {
+	my %freq;
+
+	my $lower = lc;
+	my @chars = split //,$lower;
+
+	foreach my $char (@chars)
+	{
+	    ++$freq{$char} unless $_ eq ' ';
+	};
+
+	return "FREQUENCY: " . keys %freq if $_;
+    };
+
+    return;
+};
+
+zci is_cached => 1;
+
+1;