Queue/Usage: Difference between revisions
Content added Content deleted
(→{{header|Diego}}: Added Diego entry) |
|||
Line 1,957: | Line 1,957: | ||
<lang M2000 Interpreter> |
<lang M2000 Interpreter> |
||
Module |
Module CheckStackAsLIFO { |
||
a=stack |
a=stack |
||
Stack a { |
Stack a { |
||
Line 1,975: | Line 1,975: | ||
Print StackType$(a, 1)="String", StackType$(a,2)="Number" |
Print StackType$(a, 1)="String", StackType$(a,2)="Number" |
||
} |
} |
||
CheckStackAsLIFO |
|||
CheckStackAsQueue |
|||
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> |
</lang> |
||