Sha256: f4f7a2a5e20fffa4de270cb8803b46db89955ee50ec8c12bd471106168327dfb
Contents?: true
Size: 340 Bytes
Versions: 74
Compression:
Stored size: 340 Bytes
Contents
our @allergens = <
eggs
peanuts
shellfish
strawberries
tomatoes
chocolate
pollen
cats
>;
sub allergic-to($code,$substance) is export {
return so $code +& ( 2 ** @allergens.first({ $_ eq $substance},:k) )
}
sub list-allergies($code) is export {
return grep { allergic-to($code,$_) }, @allergens;
}
Version data entries
74 entries across 74 versions & 1 rubygems