diff options
| -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; |