Zaahir Moolla
commit
14089ded5e
|
|
@ -0,0 +1,59 @@
|
||||||
|
package DDG::Goodie::PaleoIngredientCheck;
|
||||||
|
# ABSTRACT: Indicates if a given food item is known to be safe or unsafe on the paleo diet.
|
||||||
|
|
||||||
|
use DDG::Goodie;
|
||||||
|
|
||||||
|
triggers startend => share('triggers.txt')->slurp;
|
||||||
|
|
||||||
|
zci answer_type => "paleo_ingredient_check";
|
||||||
|
zci is_cached => 1;
|
||||||
|
|
||||||
|
name "PaleoIngredientCheck";
|
||||||
|
description "Indicates if a given food item is known to be safe or unsafe on the paleo diet.";
|
||||||
|
primary_example_queries "are apples paleo friendly", "Is dairy allowed on the paleo diet?";
|
||||||
|
secondary_example_queries "Is sugar paleo friendly?", "beans paleo safe";
|
||||||
|
category "food";
|
||||||
|
topics "food_and_drink";
|
||||||
|
code_url "https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/PaleoIngredientCheck.pm";
|
||||||
|
attribution github => ["murz", "Mike Murray"];
|
||||||
|
attribution github => ["javathunderman", "Thomas Denizou"];
|
||||||
|
|
||||||
|
my @safe_array = share('safe.txt')->slurp;
|
||||||
|
my %safe_keywords = map { chomp; $_ => 1 } @safe_array;
|
||||||
|
my @unsafe_array = share('unsafe.txt')->slurp;
|
||||||
|
my %unsafe_keywords = map { chomp; $_ => 1 } @unsafe_array;
|
||||||
|
|
||||||
|
# p(%safe_keywords);
|
||||||
|
# warn($safe_keywords{"apple"});
|
||||||
|
|
||||||
|
handle remainder => sub {
|
||||||
|
return unless $_;
|
||||||
|
my $item = lc($_);
|
||||||
|
|
||||||
|
# Remove any preceding "is" or "are" text from the query.
|
||||||
|
$item =~ s/^(is|are)[\W]+//;
|
||||||
|
|
||||||
|
my $is_plural = substr($item, -1) eq "s";
|
||||||
|
my $itemAlt = $is_plural ? substr($item, 0, -1) : $item."s"; # pluralized or unpluralized form
|
||||||
|
my $result;
|
||||||
|
|
||||||
|
# warn "ITEM IS: $item";
|
||||||
|
# warn "ITEM ALT IS: $itemAlt";
|
||||||
|
|
||||||
|
if (exists $safe_keywords{$item} || exists $safe_keywords{$itemAlt}) {
|
||||||
|
$result = "Yes";
|
||||||
|
} elsif (exists $unsafe_keywords{$item} || exists $unsafe_keywords{$itemAlt}) {
|
||||||
|
$result = "No";
|
||||||
|
}
|
||||||
|
|
||||||
|
return unless $result; # ensure we have a result
|
||||||
|
|
||||||
|
return $result,
|
||||||
|
structured_answer => {
|
||||||
|
input => [$item], # or just the original query
|
||||||
|
operation => "Paleo Friendly",
|
||||||
|
result => $result
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
1;
|
||||||
|
|
@ -0,0 +1,131 @@
|
||||||
|
acorn squash
|
||||||
|
almonds
|
||||||
|
apple
|
||||||
|
artichoke hearts
|
||||||
|
asparagus
|
||||||
|
avocado
|
||||||
|
avocado
|
||||||
|
avocado oil
|
||||||
|
bacon
|
||||||
|
bananas
|
||||||
|
bass
|
||||||
|
bear
|
||||||
|
beef
|
||||||
|
beef jerky
|
||||||
|
beets
|
||||||
|
bison
|
||||||
|
bison jerky
|
||||||
|
bison ribeye
|
||||||
|
bison sirloin
|
||||||
|
bison steaks
|
||||||
|
blackberries
|
||||||
|
blueberries
|
||||||
|
broccoli
|
||||||
|
brussels sprouts
|
||||||
|
buffalo
|
||||||
|
butternut squash
|
||||||
|
cabbage
|
||||||
|
cantaloupe
|
||||||
|
carrots
|
||||||
|
cashews
|
||||||
|
cauliflower
|
||||||
|
celery
|
||||||
|
chicken breast
|
||||||
|
chicken eggs
|
||||||
|
chicken leg
|
||||||
|
chicken thigh
|
||||||
|
chicken wings
|
||||||
|
chuck steak
|
||||||
|
clams
|
||||||
|
clams
|
||||||
|
coconut oil
|
||||||
|
crab
|
||||||
|
crawfish
|
||||||
|
crayfish
|
||||||
|
duck eggs
|
||||||
|
eggplant
|
||||||
|
eggs
|
||||||
|
elk
|
||||||
|
emu
|
||||||
|
figs
|
||||||
|
goat
|
||||||
|
goose
|
||||||
|
goose eggs
|
||||||
|
grapes
|
||||||
|
grassfed beef
|
||||||
|
grass-fed beef
|
||||||
|
grass-fed butter
|
||||||
|
green onions
|
||||||
|
ground beef
|
||||||
|
halibut
|
||||||
|
hazelnuts
|
||||||
|
kangaroo
|
||||||
|
lamb chops
|
||||||
|
lamb rack
|
||||||
|
lean veal
|
||||||
|
lemon
|
||||||
|
lime
|
||||||
|
lobster
|
||||||
|
lobster
|
||||||
|
lychee
|
||||||
|
macadamia nuts
|
||||||
|
macadamia oil
|
||||||
|
mackerel
|
||||||
|
mango
|
||||||
|
new york steak
|
||||||
|
olive oil
|
||||||
|
oranges
|
||||||
|
ostrich
|
||||||
|
oysters
|
||||||
|
papaya
|
||||||
|
parsley
|
||||||
|
peaches
|
||||||
|
pecans
|
||||||
|
peppers
|
||||||
|
pheasant
|
||||||
|
pine nuts
|
||||||
|
pineapple guava
|
||||||
|
plums
|
||||||
|
pork
|
||||||
|
pork chops
|
||||||
|
pork tenderloin
|
||||||
|
potato
|
||||||
|
potatoes
|
||||||
|
poultry
|
||||||
|
pumpkin seeds
|
||||||
|
quail
|
||||||
|
rabbit
|
||||||
|
raspberries
|
||||||
|
rattlesnake
|
||||||
|
red snapper
|
||||||
|
reindeer
|
||||||
|
salmon
|
||||||
|
salmon
|
||||||
|
sardines
|
||||||
|
scallops
|
||||||
|
shark
|
||||||
|
shrimp
|
||||||
|
shrimp
|
||||||
|
spinach
|
||||||
|
steak
|
||||||
|
strawberries
|
||||||
|
sunfish
|
||||||
|
sunflower seeds
|
||||||
|
sweet potato
|
||||||
|
sweet potatoes
|
||||||
|
swordfish
|
||||||
|
tangerine
|
||||||
|
tilapia
|
||||||
|
trout
|
||||||
|
tuna
|
||||||
|
turkey
|
||||||
|
turtle
|
||||||
|
veal
|
||||||
|
venison steaks
|
||||||
|
walleye
|
||||||
|
walnuts
|
||||||
|
watermelon
|
||||||
|
wild boar
|
||||||
|
yam
|
||||||
|
yucca
|
||||||
|
zucchini
|
||||||
|
|
@ -0,0 +1,14 @@
|
||||||
|
paleo friendly
|
||||||
|
paleo friendly?
|
||||||
|
paleo diet friendly
|
||||||
|
paleo diet friendly?
|
||||||
|
paleo safe
|
||||||
|
paleo safe?
|
||||||
|
paleo
|
||||||
|
paleo?
|
||||||
|
allowed on the paleo diet
|
||||||
|
allowed on the paleo diet?
|
||||||
|
allowed on paleo diet
|
||||||
|
allowed on paleo diet?
|
||||||
|
allowed on paleo
|
||||||
|
allowed on paleo?
|
||||||
|
|
@ -0,0 +1,197 @@
|
||||||
|
100 grand
|
||||||
|
2% milk
|
||||||
|
5-hour energy
|
||||||
|
ace k
|
||||||
|
acesulfame potassium
|
||||||
|
acid saccharin
|
||||||
|
ack
|
||||||
|
adzuki beans
|
||||||
|
alcohol and mixers
|
||||||
|
almond joy
|
||||||
|
aminosweet
|
||||||
|
apm
|
||||||
|
apple juice
|
||||||
|
aspartame
|
||||||
|
aspartame-acesulfame salt
|
||||||
|
aspartyl-phenylalanine-1-methyl ester
|
||||||
|
beans
|
||||||
|
beer
|
||||||
|
black beans
|
||||||
|
black-eyed peas
|
||||||
|
bread
|
||||||
|
broad beans
|
||||||
|
butter
|
||||||
|
butterfinger
|
||||||
|
calcium cyclamate
|
||||||
|
canderel
|
||||||
|
candy bars
|
||||||
|
cereals
|
||||||
|
cheese
|
||||||
|
chickpeas
|
||||||
|
chinola juice
|
||||||
|
chips
|
||||||
|
clearcut isomalt
|
||||||
|
coke
|
||||||
|
cologran
|
||||||
|
cookies
|
||||||
|
corn
|
||||||
|
corn syrup
|
||||||
|
cottage cheese
|
||||||
|
crackers
|
||||||
|
cream cheese
|
||||||
|
cream of wheat
|
||||||
|
cyclamate
|
||||||
|
cyclamate and saccharin
|
||||||
|
d-glucitol
|
||||||
|
d-glucitol syrup
|
||||||
|
dairy
|
||||||
|
dairy spreads
|
||||||
|
decomalt
|
||||||
|
diabetisweet
|
||||||
|
english muffins
|
||||||
|
equal classic
|
||||||
|
equal saccharin
|
||||||
|
equal spoonful
|
||||||
|
equal sucralose
|
||||||
|
erythritol
|
||||||
|
fava beans
|
||||||
|
fettuchini
|
||||||
|
french fries
|
||||||
|
frozen yogurt
|
||||||
|
garbanzo beans
|
||||||
|
glycerin
|
||||||
|
glycerine
|
||||||
|
glycerol
|
||||||
|
glycyrrhizin
|
||||||
|
grape juice
|
||||||
|
green beans
|
||||||
|
hash browns
|
||||||
|
hershey’s
|
||||||
|
high-fructose corn syrup
|
||||||
|
horse beans
|
||||||
|
hot dogs
|
||||||
|
hsh
|
||||||
|
hydrogenated high maltose content glucose syrup
|
||||||
|
hydrogenated isomaltulose
|
||||||
|
hydrogenated maltose
|
||||||
|
hydrogenated starch hydrolysate
|
||||||
|
ice cream
|
||||||
|
ice milk
|
||||||
|
isomalt
|
||||||
|
isomaltitol
|
||||||
|
ketchup
|
||||||
|
kidney beans
|
||||||
|
lactitol
|
||||||
|
lasagna
|
||||||
|
lasagne
|
||||||
|
lentils
|
||||||
|
lesys
|
||||||
|
licorice
|
||||||
|
lima beans
|
||||||
|
low fat milk
|
||||||
|
lupins
|
||||||
|
m&ms
|
||||||
|
maltisweet
|
||||||
|
maltitol
|
||||||
|
maltitol powder
|
||||||
|
maltitol syrup
|
||||||
|
mango juice
|
||||||
|
mannitol
|
||||||
|
mesquite
|
||||||
|
milk
|
||||||
|
milky way
|
||||||
|
miso
|
||||||
|
monster
|
||||||
|
mounds
|
||||||
|
mountain dew
|
||||||
|
mountain dew mdx
|
||||||
|
mung beans
|
||||||
|
natrataste blue
|
||||||
|
natrataste gold
|
||||||
|
natrulose
|
||||||
|
navy beans
|
||||||
|
necta sweet
|
||||||
|
neotame
|
||||||
|
nestle crunch
|
||||||
|
non-fat dairy creamer
|
||||||
|
nutrasweet
|
||||||
|
oatmeal
|
||||||
|
orange juice
|
||||||
|
pancakes
|
||||||
|
pasta
|
||||||
|
pastries
|
||||||
|
payday
|
||||||
|
peanut butter
|
||||||
|
peanuts
|
||||||
|
peas
|
||||||
|
pepsi
|
||||||
|
pinto beans
|
||||||
|
polydextrose
|
||||||
|
powdered milk
|
||||||
|
pretzels
|
||||||
|
pudding
|
||||||
|
rebiana
|
||||||
|
red beans
|
||||||
|
red bull
|
||||||
|
red vines
|
||||||
|
reeses’s pieces
|
||||||
|
reese’s
|
||||||
|
reese’s fast break
|
||||||
|
rockstar
|
||||||
|
rum
|
||||||
|
saccharin
|
||||||
|
sandwiches
|
||||||
|
skim milk
|
||||||
|
skittles
|
||||||
|
smart sweet
|
||||||
|
snickers
|
||||||
|
snickers peanut butter
|
||||||
|
snowpeas
|
||||||
|
sodium saccharin
|
||||||
|
sorbitol
|
||||||
|
soybean
|
||||||
|
soybeans
|
||||||
|
spam
|
||||||
|
splenda
|
||||||
|
sprite
|
||||||
|
starbucks refreshers
|
||||||
|
starfruit juice
|
||||||
|
steviol glycoside
|
||||||
|
strawberry juice
|
||||||
|
string beans
|
||||||
|
sucaryl
|
||||||
|
sucralose
|
||||||
|
sugar
|
||||||
|
sugar alcohol
|
||||||
|
sugar snap peas
|
||||||
|
sunchips
|
||||||
|
sunett
|
||||||
|
sweet n low
|
||||||
|
sweet one
|
||||||
|
sweet twin
|
||||||
|
sweetpearl
|
||||||
|
tagatose
|
||||||
|
tequila
|
||||||
|
toast
|
||||||
|
tofu
|
||||||
|
trichlorosucrose
|
||||||
|
triscuits
|
||||||
|
twinsweet
|
||||||
|
twix
|
||||||
|
twix peanut butter
|
||||||
|
twizzlers
|
||||||
|
two percent milk
|
||||||
|
vault
|
||||||
|
vodka
|
||||||
|
wheat
|
||||||
|
wheat thins
|
||||||
|
whiskey
|
||||||
|
white beans
|
||||||
|
whole milk
|
||||||
|
xs energy drink
|
||||||
|
xylipure
|
||||||
|
xylitol
|
||||||
|
xylosweet
|
||||||
|
yogurt
|
||||||
|
zerose
|
||||||
|
zsweet
|
||||||
|
|
@ -0,0 +1,59 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use Test::More;
|
||||||
|
use DDG::Test::Goodie;
|
||||||
|
|
||||||
|
zci answer_type => "paleo_ingredient_check";
|
||||||
|
zci is_cached => 1;
|
||||||
|
|
||||||
|
ddg_goodie_test(
|
||||||
|
[qw( DDG::Goodie::PaleoIngredientCheck )],
|
||||||
|
'are apples paleo friendly' => test_zci(
|
||||||
|
'Yes',
|
||||||
|
structured_answer => {
|
||||||
|
input => ['apples'],
|
||||||
|
operation => 'Paleo Friendly',
|
||||||
|
result => 'Yes',
|
||||||
|
},
|
||||||
|
),
|
||||||
|
'Is dairy allowed on the paleo diet?' => test_zci(
|
||||||
|
'No',
|
||||||
|
structured_answer => {
|
||||||
|
input => ['dairy'],
|
||||||
|
operation => 'Paleo Friendly',
|
||||||
|
result => 'No',
|
||||||
|
},
|
||||||
|
),
|
||||||
|
'Is sugar paleo friendly?' => test_zci(
|
||||||
|
'No',
|
||||||
|
structured_answer => {
|
||||||
|
input => ['sugar'],
|
||||||
|
operation => 'Paleo Friendly',
|
||||||
|
result => 'No',
|
||||||
|
},
|
||||||
|
),
|
||||||
|
'beans paleo safe' => test_zci(
|
||||||
|
'No',
|
||||||
|
structured_answer => {
|
||||||
|
input => ['beans'],
|
||||||
|
operation => 'Paleo Friendly',
|
||||||
|
result => 'No',
|
||||||
|
},
|
||||||
|
),
|
||||||
|
'is sugar paleo' => test_zci(
|
||||||
|
'No',
|
||||||
|
structured_answer => {
|
||||||
|
input => ['sugar'],
|
||||||
|
operation => 'Paleo Friendly',
|
||||||
|
result => 'No',
|
||||||
|
},
|
||||||
|
),
|
||||||
|
'Is foobar allowed on the paleo diet?' => undef,
|
||||||
|
'are notarealfood paleo friendly' => undef,
|
||||||
|
'paleo diet recipes' => undef,
|
||||||
|
'paleo recipes' => undef,
|
||||||
|
);
|
||||||
|
|
||||||
|
done_testing;
|
||||||
Loading…
Reference in New Issue