19 lines
460 B
Perl
19 lines
460 B
Perl
package DDG::Goodie::Anagram;
|
|
# ABSTRACT: Take a query and spit it out randomly.
|
|
|
|
use DDG::Goodie;
|
|
use List::Util 'shuffle';
|
|
|
|
triggers start => "anagram";
|
|
|
|
handle remainder => sub {
|
|
my @chars = split(//, $_); #convert each character of the query to an array element
|
|
my @garbledChars = shuffle(@chars); #randomly reorder the array
|
|
my $garbledAnswer = join('',@garbledChars); #convert array to string
|
|
return $garbledAnswer;
|
|
};
|
|
|
|
zci is_cached => 0;
|
|
|
|
1;
|