Sha256: e4ff80751b1e3920b66e43206b80c2706cecf1c75fe73934fc971d86314b4132
Contents?: true
Size: 370 Bytes
Versions: 83
Compression:
Stored size: 370 Bytes
Contents
unit module Allergies:ver<4>;
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
83 entries across 83 versions & 1 rubygems