Queue/Usage: Difference between revisions
→{{header|M2000 Interpreter}}
(→{{header|Diego}}: Added Diego entry) |
|||
Line 1,957:
<lang M2000 Interpreter>
Module
a=stack
Stack a {
Line 1,975:
Print StackType$(a, 1)="String", StackType$(a,2)="Number"
}
CheckStackAsLIFO
Module CheckStackAsFIFO {
a=stack
Stack a {
Data 1, 2, 3
Print number=1
Print number=2
Print number=3
Print Empty=True
Data "A", "B", "C"
Print letter$="A"
Print letter$="B"
Print letter$="C"
Print Empty=True
Push 1,"OK"
}
Print Len(a)=2, StackItem(a, 2)=1, StackItem$(a, 1)="OK"
Print StackType$(a, 1)="String", StackType$(a,2)="Number"
}
CheckStackAsFIFO
</lang>
| |||