48 lines
951 B
Raku
48 lines
951 B
Raku
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;
|