diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-01-11 17:49:11 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2021-01-15 18:10:23 +0100 |
| commit | 13eb7ac802214f8dbd47270979f506d007acde3e (patch) | |
| tree | 80259651ca15310d9e7b4fc891d06499b625c01c | |
| parent | 6c76a50e6a33bd0881dd9021243b71607fe72841 (diff) | |
| download | perlweeklychallenge-club-13eb7ac802214f8dbd47270979f506d007acde3e.tar.gz perlweeklychallenge-club-13eb7ac802214f8dbd47270979f506d007acde3e.tar.bz2 perlweeklychallenge-club-13eb7ac802214f8dbd47270979f506d007acde3e.zip | |
Example script for task 2
| -rw-r--r-- | challenge-095/jo-37/perl/ch-2-ex.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-095/jo-37/perl/ch-2-ex.pl b/challenge-095/jo-37/perl/ch-2-ex.pl new file mode 100644 index 0000000000..ec63be8f36 --- /dev/null +++ b/challenge-095/jo-37/perl/ch-2-ex.pl @@ -0,0 +1,19 @@ +use v5.16; + +# Let "Stack" print calls and results +$Stack::verbose = 1; + +say 'create Stack'; +my $stack = Stack->new; + +$stack->push(2); +$stack->push(-1); +$stack->push(0); +$stack->pop; +$stack->top; +$stack->push(0); + +$stack->min; + +$stack->max; +$stack->size; |