Anonymous user
Queue/Usage: Difference between revisions
m
→{{header|ALGOL 68}}: define and use a +=: operator
(→{{header|ALGOL 68}}: use # Stigler's 1939 Diet ... # as test data.) |
m (→{{header|ALGOL 68}}: define and use a +=: operator) |
||
Line 56:
# -*- coding: utf-8 -*- #
MODE
PR read "prelude/
PR read "prelude/queue_base.a68" PR;
PR read "test/data_stigler_diet.a68" PR;
FOR i TO UPB stigler diet DO
# item queue put(example queue, stigler diet[i]) or ... #
stigler diet[i] +=: example queue
OD;
printf($"
WHILE NOT item queue is empty(example queue) DO
# OR example queue ISNT item queue empty #
printf((diet item fmt, item queue get(example queue), $l$))
OD</lang>'''Output:'''
<pre>
Cabbage: 111 lb. = $ 4.11
Dried Navy Beans: 285 lb. = $ 16.80
Line 80 ⟶ 82:
Total Annual Cost: = $ 39.93
</pre>
=={{header|AppleScript}}==
<lang AppleScript >on push(StackRef, value)
| |||