Contents

unit module Allergies:ver<1>;

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

138 entries across 138 versions & 1 rubygems

Version	Path
trackler-2.2.1.48	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.47	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.46	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.45	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.44	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.43	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.42	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.41	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.40	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.39	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.38	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.37	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.36	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.35	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.34	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.33	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.32	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.31	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.30	tracks/perl6/exercises/allergies/Example.pm6
trackler-2.2.1.29	tracks/perl6/exercises/allergies/Example.pm6