Add eliuds-eggs exercise (#696)

config.json

@@ -308,6 +308,14 @@
         "prerequisites": [],
         "difficulty": 4
       },
+      {
+        "slug": "eliuds-eggs",
+        "name": "Eliud's Eggs",
+        "uuid": "d6495da4-a0fc-4bb8-b6bb-99aa01ef3656",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 2
+      },
       {
         "slug": "etl",
         "name": "ETL",

exercises/practice/eliuds-eggs/.docs/instructions.md

@@ -0,0 +1,8 @@
+# Instructions
+
+Your task is to count the number of 1 bits in the binary representation of a number.
+
+## Restrictions
+
+Keep your hands off that bit-count functionality provided by your standard library!
+Solve this one yourself using other basic tools instead.

exercises/practice/eliuds-eggs/.docs/introduction.md

@@ -0,0 +1,47 @@
+# Introduction
+
+Your friend Eliud inherited a farm from her grandma Tigist.
+Her granny was an inventor and had a tendency to build things in an overly complicated manner.
+The chicken coop has a digital display showing an encoded number representing the positions of all eggs that could be picked up.
+
+Eliud is asking you to write a program that shows the actual number of eggs in the coop.
+
+The position information encoding is calculated as follows:
+
+1. Scan the potential egg-laying spots and mark down a `1` for an existing egg or a `0` for an empty spot.
+2. Convert the number from binary to decimal.
+3. Show the result on the display.
+
+Example 1:
+
+```text
+Chicken Coop:
+ _ _ _ _ _ _ _
+|E| |E|E| | |E|
+
+Resulting Binary:
+ 1 0 1 1 0 0 1
+
+Decimal number on the display:
+89
+
+Actual eggs in the coop:
+4
+```
+
+Example 2:
+
+```text
+Chicken Coop:
+ _ _ _ _ _ _ _ _
+| | | |E| | | | |
+
+Resulting Binary:
+ 0 0 0 1 0 0 0 0
+
+Decimal number on the display:
+16
+
+Actual eggs in the coop:
+1
+```

exercises/practice/eliuds-eggs/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "glennj"
+  ],
+  "files": {
+    "solution": [
+      "lib/EliudsEggs.pm"
+    ],
+    "test": [
+      "t/eliuds-eggs.t"
+    ],
+    "example": [
+      ".meta/solutions/lib/EliudsEggs.pm"
+    ]
+  },
+  "blurb": "Help Eliud count the number of eggs in her chicken coop by counting the number of 1 bits in a binary representation.",
+  "source": "Christian Willner, Eric Willigers",
+  "source_url": "https://forum.exercism.org/t/new-exercise-suggestion-pop-count/7632/5"
+}

exercises/practice/eliuds-eggs/.meta/solutions/lib/EliudsEggs.pm

@@ -0,0 +1,19 @@
+package EliudsEggs;
+
+use strict;
+use warnings;
+use experimental qw<signatures postderef postderef_qq>;
+
+use Exporter qw<import>;
+our @EXPORT_OK = qw<egg_count>;
+
+sub egg_count ($number) {
+    my $count = 0;
+    while ( $number > 0 ) {
+        $count += $number & 1;
+        $number >>= 1;
+    }
+    return $count;
+}
+
+1;

exercises/practice/eliuds-eggs/.meta/solutions/t/eliuds-eggs.t

@@ -0,0 +1 @@
+../../../t/eliuds-eggs.t

exercises/practice/eliuds-eggs/.meta/template-data.yaml

@@ -0,0 +1,27 @@
+subs: egg_count
+properties:
+  eggCount:
+    test: |-
+      use Data::Dmp;
+      sprintf(<<'END', $case->{input}{number}, $case->{expected}, dmp($case->{description}));
+      is(
+          egg_count(%d),
+          %s,
+          %s,
+      );
+      END
+
+example: |-
+  sub egg_count ($number) {
+    my $count = 0;
+    while ($number > 0) {
+      $count += $number & 1;
+      $number >>= 1;
+    }
+    return $count;
+  }
+
+stub: |-
+  sub egg_count ($number) {
+    return undef;
+  }

exercises/practice/eliuds-eggs/.meta/tests.toml

@@ -0,0 +1,22 @@
+# This is an auto-generated file.
+#
+# Regenerating this file via `configlet sync` will:
+# - Recreate every `description` key/value pair
+# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications
+# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion)
+# - Preserve any other key/value pair
+#
+# As user-added comments (using the # character) will be removed when this file
+# is regenerated, comments can be added via a `comment` key.
+
+[559e789d-07d1-4422-9004-3b699f83bca3]
+description = "0 eggs"
+
+[97223282-f71e-490c-92f0-b3ec9e275aba]
+description = "1 egg"
+
+[1f8fd18f-26e9-4144-9a0e-57cdfc4f4ff5]
+description = "4 eggs"
+
+[0c18be92-a498-4ef2-bcbb-28ac4b06cb81]
+description = "13 eggs"

exercises/practice/eliuds-eggs/lib/EliudsEggs.pm

@@ -0,0 +1,12 @@
+package EliudsEggs;
+
+use v5.40;
+
+use Exporter qw<import>;
+our @EXPORT_OK = qw<egg_count>;
+
+sub egg_count ($number) {
+    return undef;
+}
+
+1;

exercises/practice/eliuds-eggs/t/eliuds-eggs.t

@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use Test2::V0;
+
+use FindBin qw<$Bin>;
+use lib "$Bin/../lib", "$Bin/../local/lib/perl5";
+
+use EliudsEggs qw<egg_count>;
+
+is( # begin: 559e789d-07d1-4422-9004-3b699f83bca3
+    egg_count(0),
+    0,
+    "0 eggs",
+); # end: 559e789d-07d1-4422-9004-3b699f83bca3
+
+is( # begin: 97223282-f71e-490c-92f0-b3ec9e275aba
+    egg_count(16),
+    1,
+    "1 egg",
+); # end: 97223282-f71e-490c-92f0-b3ec9e275aba
+
+is( # begin: 1f8fd18f-26e9-4144-9a0e-57cdfc4f4ff5
+    egg_count(89),
+    4,
+    "4 eggs",
+); # end: 1f8fd18f-26e9-4144-9a0e-57cdfc4f4ff5
+
+is( # begin: 0c18be92-a498-4ef2-bcbb-28ac4b06cb81
+    egg_count(2000000000),
+    13,
+    "13 eggs",
+); # end: 0c18be92-a498-4ef2-bcbb-28ac4b06cb81
+
+done_testing;