Anonymous user
Queue/Definition: Difference between revisions
perl correction, before it returned the number of elements
m (→{{header|Ada}}: fix lang tag) |
(perl correction, before it returned the number of elements) |
||
Line 1,279:
sub mypush (\@@) {my($list,@things)=@_; push @$list, @things}
sub mypop (\@) {my($list)=@_; @$list or croak "Empty"; shift @$list }
sub empty (@) {not @_}</lang>
Example:
| |||