Merge pull request #2906 from stuart-little/stuart-little_028

1st commit on 028

3 files changed, 31 insertions, 0 deletions

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>