Merge git://github.com/neil477/zeroclickinfo-goodies

lib/DDG/Goodie/FindAnagrams.pm

@@ -0,0 +1,47 @@
+package DDG::Goodie::FindAnagrams;
+
+use DDG::Goodie;
+use JSON;
+#use Data::Dumper;
+
+zci is_cached => 1;
+
+triggers start => "find anagrams";
+
+
+my $json = share('words.json')->slurp;
+
+my %wordHash = %{decode_json($json)};
+
+#print Dumper(\%wordHash);
+
+
+handle remainder => sub {
+
+    if ($_ eq ""){
+	return "No Anagrams Found."
+    }
+
+# Format string to look like hash key by making it lowercase then splitting the string into chars, sort them and finally  join back into sorted string
+    my $sorted_string = join("",sort(split(//,lc($_))));
+
+    my @resultArray = ();
+
+    if (exists $wordHash{$sorted_string}) {
+	push(@resultArray, @{$wordHash{$sorted_string}});
+    } else {
+	return "No Anagrams Found.";
+    }
+
+    my $index = 0;
+
+    $index++ until $resultArray[$index] eq $_;
+
+    splice(@resultArray, $index, 1);
+
+    my $result_string = join(",",@resultArray);
+
+    return (($result_string eq "") ? "No Anagrams Found!" : $result_string);
+};
+
+1;

share/goodie/find_anagrams/generate_word_json.pl

@@ -0,0 +1,42 @@
+#!/usr/local/bin/perl
+#
+# Anagram Generator
+#
+
+use utf8;
+use JSON::XS qw(encode_json decode_json);
+use File::Slurp qw(read_file write_file);
+
+# open file
+open(FILE, "/usr/share/dict/words") or die("Unable to open file");
+ 
+# read file into an array
+my %dict = ();
+
+while (my $line = <FILE>) {
+    chomp $line;
+
+# get last two letters of word. the unix words file has man duplicated possessive words with the 's appended which do not serve our purpose for anagram finding.
+    $amt = substr($line, -2);
+
+    unless ($amt eq '\'s'){
+
+	$lcline = lc($line);
+	
+	## Spliting the string with no delimeter.
+	$sorted_string = join("",sort(split("",$lcline)));
+
+	if (exists $dict{$sorted_string}) {
+	    push @{$dict{$sorted_string}}, $line;
+	}
+	else {
+	    push @{$dict{$sorted_string}}, $line;
+	}
+    }
+}
+
+# close file 
+close(FILE);
+
+my $json = encode_json \%dict;
+write_file('words.json', { binmode => ':raw' }, $json);

t/FindAnagrams.t

@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More;
+use DDG::Test::Goodie;
+
+zci answer_type => 'findanagrams';
+zci is_cached => 1;
+
+ddg_goodie_test(
+	[qw(DDG::Goodie::FindAnagrams)],
+
+    "Find Anagrams"   => test_zci("No Anagrams Found."),
+    "Find Anagrams <>"   => test_zci("No Anagrams Found."),
+     "Find Anagrams stop"   => test_zci("Post,opts,post,pots,spot,tops"),
+    "Find Anagrams lost" => test_zci("lots,slot"),
+);
+
+done_testing;
+