From efd8a410c846feb3d9ab330cfc49f3f2f3a8636d Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Wed, 2 Dec 2020 02:17:09 -0500
Subject: 1st commit on 028

---
 challenge-028/stuart-little/README       |  1 +
 challenge-028/stuart-little/raku/ch-1.p6 | 16 ++++++++++++++++
 challenge-028/stuart-little/raku/ch-2.p6 | 14 ++++++++++++++
 3 files changed, 31 insertions(+)
 create mode 100644 challenge-028/stuart-little/README
 create mode 100755 challenge-028/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-028/stuart-little/raku/ch-2.p6

diff --git a/challenge-028/stuart-little/README b/challenge-028/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-028/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-028/stuart-little/raku/ch-1.p6 b/challenge-028/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..1807ccccc2
--- /dev/null
+++ b/challenge-028/stuart-little/raku/ch-1.p6
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6
+use v6;
+use Inline::Perl5;
+
+my $file=@*ARGS[0];
+
+(! $file.IO.e) && die ("No such file.");
+($file.IO.z) && do {
+    say "empty";
+    exit;
+}
+
+my $p5 = Inline::Perl5.new;
+$p5.run(qq"print ((-B '$file') ? ('binary') : ('text')); print '\n'");
+
+# run as <script> <path-to-file>
diff --git a/challenge-028/stuart-little/raku/ch-2.p6 b/challenge-028/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..bedd857b32
--- /dev/null
+++ b/challenge-028/stuart-little/raku/ch-2.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+use v6;
+
+shell("clear");
+
+loop {
+    say "Hit Ctrl+C to exit\n";
+    say DateTime.now.hh-mm-ss;
+    sleep(1);    
+    shell("clear");
+    signal(SIGINT).tap( { say "Bye!"; exit 0 } );
+}
+
+# run as <script>
-- 
cgit