4 lines
170 B
Perl
4 lines
170 B
Perl
use Carp;
|
|
sub mypush (\@@) {my($list,@things)=@_; push @$list, @things}
|
|
sub mypop (\@) {my($list)=@_; @$list or croak "Empty"; shift @$list }
|
|
sub empty (@) {not @_}
|