Raku: Add Allergies

4 files changed, 598 insertions, 0 deletions

diff --git a/raku/allergies/Allergies.rakumod b/raku/allergies/Allergies.rakumod
new file mode 100644
index 0000000..9fda548
--- /dev/null
+++ b/raku/allergies/Allergies.rakumod
@@ -0,0 +1,18 @@
+unit module Allergies;
+
+constant %allergens = (
+    eggs         => 0b1,
+    peanuts      => 0b10,
+    shellfish    => 0b100,
+    strawberries => 0b1000,
+    tomatoes     => 0b10000,
+    chocolate    => 0b100000,
+    pollen       => 0b1000000,
+    cats         => 0b10000000,
+);
+
+sub allergic-to( :$item, :$score ) is export {
+}
+
+sub list-allergies($score) is export {
+}
diff --git a/raku/allergies/HELP.md b/raku/allergies/HELP.md
new file mode 100644
index 0000000..415d277
--- /dev/null
+++ b/raku/allergies/HELP.md
@@ -0,0 +1,32 @@
+# Help
+
+## Running the tests
+
+You can run the test suite for the exercise by executing the command
+`prove6 .` in the exercise directory.
+
+## Submitting your solution
+
+You can submit your solution using the `exercism submit Allergies.rakumod` command.
+This command will upload your solution to the Exercism website and print the solution page's URL.
+
+It's possible to submit an incomplete solution which allows you to:
+
+- See how others have completed the exercise
+- Request help from a mentor
+
+## Need to get help?
+
+If you'd like help solving the exercise, check the following pages:
+
+- The [Raku track's documentation](https://exercism.org/docs/tracks/raku)
+- [Exercism's support channel on gitter](https://gitter.im/exercism/support)
+- The [Frequently Asked Questions](https://exercism.org/docs/using/faqs)
+
+Should those resources not suffice, you could submit your (incomplete) solution to request mentoring.
+
+To get help if you're having trouble, you can use one of the following resources:
+
+- [Raku resources](https://raku.org/resources/)
+- [/r/rakulang](https://www.reddit.com/r/rakulang) is the Raku subreddit.
+- [StackOverflow](http://stackoverflow.com/questions/tagged/raku) can be used to search for your problem and see if it has been answered already. You can also ask and answer questions.
\ No newline at end of file
diff --git a/raku/allergies/README.md b/raku/allergies/README.md
new file mode 100644
index 0000000..c35e79a
--- /dev/null
+++ b/raku/allergies/README.md
@@ -0,0 +1,50 @@
+# Allergies
+
+Welcome to Allergies on Exercism's Raku Track.
+If you need help running the tests or submitting your code, check out `HELP.md`.
+
+## Instructions
+
+Given a person's allergy score, determine whether or not they're allergic to a given item, and their full list of allergies.
+
+An allergy test produces a single numeric score which contains the
+information about all the allergies the person has (that they were
+tested for).
+
+The list of items (and their value) that were tested are:
+
+* eggs (1)
+* peanuts (2)
+* shellfish (4)
+* strawberries (8)
+* tomatoes (16)
+* chocolate (32)
+* pollen (64)
+* cats (128)
+
+So if Tom is allergic to peanuts and chocolate, he gets a score of 34.
+
+Now, given just that score of 34, your program should be able to say:
+
+- Whether Tom is allergic to any one of those allergens listed above.
+- All the allergens Tom is allergic to.
+
+Note: a given score may include allergens **not** listed above (i.e.
+allergens that score 256, 512, 1024, etc.).  Your program should
+ignore those components of the score.  For example, if the allergy
+score is 257, your program should only report the eggs (1) allergy.
+
+## Source
+
+### Created by
+
+- @yanick
+
+### Contributed to by
+
+- @kotp
+- @m-dango
+
+### Based on
+
+Jumpstart Lab Warm-up - http://jumpstartlab.com
\ No newline at end of file
diff --git a/raku/allergies/allergies.rakutest b/raku/allergies/allergies.rakutest
new file mode 100644
index 0000000..df98cfa
--- /dev/null
+++ b/raku/allergies/allergies.rakutest
@@ -0,0 +1,498 @@
+#!/usr/bin/env raku
+use Test;
+use JSON::Fast;
+use lib $?FILE.IO.dirname;
+use Allergies;
+plan 49;
+
+my @test-cases = from-json($=pod[*-1].contents).List;
+for @test-cases -> %case {
+  given %case<property> {
+    when 'allergicTo' {
+      subtest %case<description>, {
+        plan 2;
+        isa-ok ( my $result := allergic-to |%case<input>:p ), Bool;
+        is-deeply $result, %case<expected>, 'Result matches expected';
+      }
+    }
+
+    when 'list' {
+      cmp-ok list-allergies(%case<input><score>),
+        '~~', %case<expected>.Set, %case<description>;
+    }
+  }
+}
+
+=head2 Test Cases
+=begin code
+[
+  {
+    "description": "testing for eggs allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "eggs",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for eggs allergy: allergic only to eggs",
+    "expected": true,
+    "input": {
+      "item": "eggs",
+      "score": 1
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for eggs allergy: allergic to eggs and something else",
+    "expected": true,
+    "input": {
+      "item": "eggs",
+      "score": 3
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for eggs allergy: allergic to something, but not eggs",
+    "expected": false,
+    "input": {
+      "item": "eggs",
+      "score": 2
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for eggs allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "eggs",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for peanuts allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "peanuts",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for peanuts allergy: allergic only to peanuts",
+    "expected": true,
+    "input": {
+      "item": "peanuts",
+      "score": 2
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for peanuts allergy: allergic to peanuts and something else",
+    "expected": true,
+    "input": {
+      "item": "peanuts",
+      "score": 7
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for peanuts allergy: allergic to something, but not peanuts",
+    "expected": false,
+    "input": {
+      "item": "peanuts",
+      "score": 5
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for peanuts allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "peanuts",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for shellfish allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "shellfish",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for shellfish allergy: allergic only to shellfish",
+    "expected": true,
+    "input": {
+      "item": "shellfish",
+      "score": 4
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for shellfish allergy: allergic to shellfish and something else",
+    "expected": true,
+    "input": {
+      "item": "shellfish",
+      "score": 14
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for shellfish allergy: allergic to something, but not shellfish",
+    "expected": false,
+    "input": {
+      "item": "shellfish",
+      "score": 10
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for shellfish allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "shellfish",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for strawberries allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "strawberries",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for strawberries allergy: allergic only to strawberries",
+    "expected": true,
+    "input": {
+      "item": "strawberries",
+      "score": 8
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for strawberries allergy: allergic to strawberries and something else",
+    "expected": true,
+    "input": {
+      "item": "strawberries",
+      "score": 28
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for strawberries allergy: allergic to something, but not strawberries",
+    "expected": false,
+    "input": {
+      "item": "strawberries",
+      "score": 20
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for strawberries allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "strawberries",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for tomatoes allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "tomatoes",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for tomatoes allergy: allergic only to tomatoes",
+    "expected": true,
+    "input": {
+      "item": "tomatoes",
+      "score": 16
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for tomatoes allergy: allergic to tomatoes and something else",
+    "expected": true,
+    "input": {
+      "item": "tomatoes",
+      "score": 56
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for tomatoes allergy: allergic to something, but not tomatoes",
+    "expected": false,
+    "input": {
+      "item": "tomatoes",
+      "score": 40
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for tomatoes allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "tomatoes",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for chocolate allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "chocolate",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for chocolate allergy: allergic only to chocolate",
+    "expected": true,
+    "input": {
+      "item": "chocolate",
+      "score": 32
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for chocolate allergy: allergic to chocolate and something else",
+    "expected": true,
+    "input": {
+      "item": "chocolate",
+      "score": 112
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for chocolate allergy: allergic to something, but not chocolate",
+    "expected": false,
+    "input": {
+      "item": "chocolate",
+      "score": 80
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for chocolate allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "chocolate",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for pollen allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "pollen",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for pollen allergy: allergic only to pollen",
+    "expected": true,
+    "input": {
+      "item": "pollen",
+      "score": 64
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for pollen allergy: allergic to pollen and something else",
+    "expected": true,
+    "input": {
+      "item": "pollen",
+      "score": 224
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for pollen allergy: allergic to something, but not pollen",
+    "expected": false,
+    "input": {
+      "item": "pollen",
+      "score": 160
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for pollen allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "pollen",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for cats allergy: not allergic to anything",
+    "expected": false,
+    "input": {
+      "item": "cats",
+      "score": 0
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for cats allergy: allergic only to cats",
+    "expected": true,
+    "input": {
+      "item": "cats",
+      "score": 128
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for cats allergy: allergic to cats and something else",
+    "expected": true,
+    "input": {
+      "item": "cats",
+      "score": 192
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for cats allergy: allergic to something, but not cats",
+    "expected": false,
+    "input": {
+      "item": "cats",
+      "score": 64
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "testing for cats allergy: allergic to everything",
+    "expected": true,
+    "input": {
+      "item": "cats",
+      "score": 255
+    },
+    "property": "allergicTo"
+  },
+  {
+    "description": "list when: no allergies",
+    "expected": [
+    ],
+    "input": {
+      "score": 0
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: just eggs",
+    "expected": [
+      "eggs"
+    ],
+    "input": {
+      "score": 1
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: just peanuts",
+    "expected": [
+      "peanuts"
+    ],
+    "input": {
+      "score": 2
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: just strawberries",
+    "expected": [
+      "strawberries"
+    ],
+    "input": {
+      "score": 8
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: eggs and peanuts",
+    "expected": [
+      "eggs",
+      "peanuts"
+    ],
+    "input": {
+      "score": 3
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: more than eggs but not peanuts",
+    "expected": [
+      "eggs",
+      "shellfish"
+    ],
+    "input": {
+      "score": 5
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: lots of stuff",
+    "expected": [
+      "strawberries",
+      "tomatoes",
+      "chocolate",
+      "pollen",
+      "cats"
+    ],
+    "input": {
+      "score": 248
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: everything",
+    "expected": [
+      "eggs",
+      "peanuts",
+      "shellfish",
+      "strawberries",
+      "tomatoes",
+      "chocolate",
+      "pollen",
+      "cats"
+    ],
+    "input": {
+      "score": 255
+    },
+    "property": "list"
+  },
+  {
+    "description": "list when: no allergen score parts",
+    "expected": [
+      "eggs",
+      "shellfish",
+      "strawberries",
+      "tomatoes",
+      "chocolate",
+      "pollen",
+      "cats"
+    ],
+    "input": {
+      "score": 509
+    },
+    "property": "list"
+  }
+]
+=end code