38 lines
1.1 KiB
Perl
38 lines
1.1 KiB
Perl
package DDG::Goodie::Palindrome;
|
|
# ABSTRACT: Return if the a string is a palindrome, formatted requests:
|
|
# 'is <string> a[n] palindrome[?]' or 'isPalindrome <string>'
|
|
|
|
use DDG::Goodie;
|
|
|
|
triggers any => 'palindrome';
|
|
|
|
zci is_cached => 1;
|
|
|
|
primary_example_queries 'is a dank, sad nap. eels sleep and ask nada. a palindrome?';
|
|
secondary_example_queries 'is foo a palindrome?', 'is dad a palindrome?';
|
|
description 'check if a given string is a palindrome';
|
|
name 'Palindrome';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Palindrome.pm';
|
|
category 'language';
|
|
topics 'words_and_games';
|
|
|
|
handle query => sub {
|
|
#Remove the trigger text from the query.
|
|
return unless /^(?:is\s+|)(.*?)\s+an?\s*palindrome\??$/i;
|
|
|
|
my $palindrome = $1;
|
|
|
|
my $is_palindrome = 0;
|
|
|
|
# Clean up.
|
|
my $clean_palindrome = lc $palindrome;
|
|
$clean_palindrome =~ s/[^a-z0-9]+//g;
|
|
|
|
$is_palindrome = 1 if $clean_palindrome eq scalar reverse $clean_palindrome;
|
|
|
|
#Check to see if it is a palindrome.
|
|
return $is_palindrome ? qq("$palindrome" is a palindrome.) : qq("$palindrome" is not a palindrome.);
|
|
};
|
|
|
|
1;
|