Merge pull request #4298 from arnesom/branch-for-challenge-117

Arne Sommer

1 files changed, 28 insertions, 0 deletions

diff --git a/challenge-117/arne-sommer/raku/missing-row-loops b/challenge-117/arne-sommer/raku/missing-row-loops
new file mode 100755
index 0000000000..efff37a0b1
--- /dev/null
+++ b/challenge-117/arne-sommer/raku/missing-row-loops
@@ -0,0 +1,28 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Str $file where $file.IO.f && $file.IO.r, :v(:$verbose));
+
+my @ids;
+
+for $file.IO.lines -> $line
+{
+  my ($id, $content) = $line.split(',', 2);
+
+  say ": ID: $id" if $verbose;
+  @ids.push: $id.Int;
+}
+
+say ": IDs (sorted): { @ids.sort.join(", ") }" if $verbose;
+
+my $expected = 1;
+
+for @ids.sort -> $id
+{
+  say ": $id (expected $expected)" if $verbose;
+  unless $id == $expected
+  {
+    say $expected;
+    last;
+  }
+  $expected++;
+}