From 086638477ac9b5d3847507e6275d8e5342767893 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 07:04:20 -0500
Subject: 1st commit on 098_raku

---
 challenge-098/stuart-little/raku/ch-1.p6 | 6 ++++++
 challenge-098/stuart-little/raku/ch-2.p6 | 7 +++++++
 2 files changed, 13 insertions(+)
 create mode 100755 challenge-098/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-098/stuart-little/raku/ch-2.p6

diff --git a/challenge-098/stuart-little/raku/ch-1.p6 b/challenge-098/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..0add37ddb7
--- /dev/null
+++ b/challenge-098/stuart-little/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <path-to-file> <number>
+
+say @*ARGS[0].IO.slurp.substr(0,@*ARGS[1].Int)
diff --git a/challenge-098/stuart-little/raku/ch-2.p6 b/challenge-098/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..a84b1e1a23
--- /dev/null
+++ b/challenge-098/stuart-little/raku/ch-2.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <target> <space-separated array entries>
+
+my @nrs = @*ARGS.map(*.Int);
+say @nrs[1..*].grep(* < @nrs[0]).elems
-- 
cgit