Queue/Definition: Difference between revisions
Content added Content deleted
(→{{header|PureBasic}}: Added PureBasic) |
m (→{{header|PureBasic}}: Corrected Pop() to handle OutOfRange-errors) |
||
| Line 1,269: | Line 1,269: | ||
Shared MyStack() |
Shared MyStack() |
||
Protected n |
Protected n |
||
FirstElement(MyStack()) |
If FirstElement(MyStack()) ; e.g. Stack not empty |
||
n=MyStack() |
n=MyStack() |
||
DeleteElement(MyStack(),1) |
DeleteElement(MyStack(),1) |
||
Else |
|||
Debug "Pop(), out of range. Error at line "+str(#PB_Compiler_Line) |
|||
EndIf |
|||
ProcedureReturn n |
ProcedureReturn n |
||
EndProcedure |
EndProcedure |
||
| Line 1,289: | Line 1,292: | ||
While Not Empty() |
While Not Empty() |
||
Debug Pop() |
Debug Pop() |
||
Wend |
Wend |
||
;---- Now an extra Pop(), e.g. one to many ---- |
|||
Debug Pop()</lang> |
|||
'''Outputs |
'''Outputs |
||
| Line 1,296: | Line 1,301: | ||
1 |
1 |
||
4 |
4 |
||
Pop(), out of range. Error at line 17 |
|||
0 |
|||
</tt> |
</tt> |
||