diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-01-12 00:25:07 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-01-12 00:25:07 +0000 |
| commit | 84ba08c0c1b1818f5b410d46e5f868e98456fd8e (patch) | |
| tree | fa694a472786a6e1991e197182c158dabe9ee9ea | |
| parent | 271190995c676a41f483cf37c023158f53db598b (diff) | |
| parent | 511d5aefd2d2cd851f9fa34bd2bff77ef95bb83d (diff) | |
| download | perlweeklychallenge-club-84ba08c0c1b1818f5b410d46e5f868e98456fd8e.tar.gz perlweeklychallenge-club-84ba08c0c1b1818f5b410d46e5f868e98456fd8e.tar.bz2 perlweeklychallenge-club-84ba08c0c1b1818f5b410d46e5f868e98456fd8e.zip | |
Merge pull request #3218 from stuart-little/stuart-little_095_raku
1st commit on 095_raku
| -rwxr-xr-x | challenge-095/stuart-little/raku/ch-1.p6 | 6 | ||||
| -rwxr-xr-x | challenge-095/stuart-little/raku/ch-2.p6 | 21 |
2 files changed, 27 insertions, 0 deletions
diff --git a/challenge-095/stuart-little/raku/ch-1.p6 b/challenge-095/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..b4d820de49 --- /dev/null +++ b/challenge-095/stuart-little/raku/ch-1.p6 @@ -0,0 +1,6 @@ +#!/usr/bin/env perl6 +use v6; + +# run <script> <number> + +(@*ARGS[0] eq @*ARGS[0].flip).Int.say diff --git a/challenge-095/stuart-little/raku/ch-2.p6 b/challenge-095/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..e88c26c01a --- /dev/null +++ b/challenge-095/stuart-little/raku/ch-2.p6 @@ -0,0 +1,21 @@ +#!/usr/bin/env perl6 +use v6; + +# run <script> + +sub stack_min (@stack,$mn) { + (! @stack) && return $mn; + my $popped=@stack.pop; + return (stack_min(@stack,$mn),($mn,$popped).min).min +} + +my @stack; + +[2,-1,0,10,4].map({ @stack.push($_) }); +say qq|Current stack: {@stack}|; +say qq|Popping: {@stack.pop}|; +say qq|Current stack: {@stack}|; +say qq|Peeking: {@stack.[*-1]}|; +say qq|Current stack: {@stack}|; +say qq|Stack minimum: {stack_min(@stack,Inf)}|; +say qq|Current stack: {@stack}|; |