Merge pull request #3223 from fluca1978/pwc95

Pwc95

4 files changed, 51 insertions, 0 deletions

diff --git a/challenge-095/luca-ferrari/blog-1.txt b/challenge-095/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..bb64103b60
--- /dev/null
+++ b/challenge-095/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/01/11/PerlWeeklyChallenge95.html#task1
diff --git a/challenge-095/luca-ferrari/blog-2.txt b/challenge-095/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..03dae86753
--- /dev/null
+++ b/challenge-095/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/01/11/PerlWeeklyChallenge95.html#task2
diff --git a/challenge-095/luca-ferrari/raku/ch-1.p6 b/challenge-095/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..3e46a573fd
--- /dev/null
+++ b/challenge-095/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!raku
+
+
+sub MAIN( Int :$N = 1 ) {
+    say ~$N == ~$N.flip ?? '1' !! '0';
+}
diff --git a/challenge-095/luca-ferrari/raku/ch-2.p6 b/challenge-095/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..acec821fab
--- /dev/null
+++ b/challenge-095/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,43 @@
+#!raku
+
+
+class SimpleStack {
+    has Int @!elements;
+
+    submethod BUILD {
+        @!elements = Array.new;
+    }
+
+    method push( Int $n ) { @!elements.push: $n; }
+    method pop()          {  @!elements[ @!elements.elems - 1 ]:delete; }
+    method top()          { @!elements.reverse[ 0 ]; }
+    method min()          { @!elements.min; }
+    method print() { say $_ for @!elements.reverse;  }
+}
+
+
+sub MAIN() {
+    my SimpleStack $stack = SimpleStack.new;
+    $stack.push(2);
+    $stack.push(-1);
+    $stack.push(0);
+    # the stack is now 0 -1 2
+    # say "==================";
+    # $stack.print;
+    # say "Min { $stack.min } e top {$stack.top}";
+#    say "==================";
+    $stack.pop;       # removes 0
+    # the stack is now -1 2
+    say $stack.top; # prints -1
+    # say "==================";
+    # $stack.print;
+    # say "Min { $stack.min } e top {$stack.top}";
+    # say "==================";
+    $stack.push(0);
+    # the stack is now 0 -1 2
+    say $stack.min; # prints -1
+    # say "==================";
+    # say $stack.print;
+    # say "Min { $stack.min } e top {$stack.top}";
+    # say "==================";
+}