Rosetta Code

Queue/Usage: Difference between revisions

Page Discussion

Queue/Usage (view source)

Revision as of 06:57, 24 September 2013

219 bytes added ,  10 years ago
→‎{{header|ALGOL 68}}
(→‎{{header|ALGOL 68}}: Queue/Definition)
Line 39:
{{works with|ALGOL 68G|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-2.7 algol68g-2.7].}}
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of '''format'''[ted] ''transput''.}}
 
'''File: prelude/link.a68''' c.f. [[Queue/Definition#ALGOL 68|Queue/Definition]]<br>
'''File: prelude/queue_base.a68''' c.f. [[Queue/Definition#ALGOL 68|Queue/Definition]]<br>
'''File: test/data_stigler_diet.a68'''<lang algol68># -*- coding: utf-8 -*- #
MODE DIETITEM = STRUCT(
Line 56 ⟶ 59:
# -*- coding: utf-8 -*- #
 
MODE DLINKITEMOBJVALUE = DIETITEM;
PR read "prelude/double_linklink.a68" PR;# c.f. [[rc:Queue/Definition]] #
PR read "prelude/queue_base.a68" PR; # c.f. [[rc:Queue/Definition]] #
 
PR read "test/data_stigler_diet.a68" PR;
ITEMQUEUEOBJQUEUE example queue; itemobj queue init(example queue);
 
FOR i TO UPB stigler diet DO
# itemobj queue put(example queue, stigler diet[i]) or ... #
stigler diet[i] +=: example queue
OD;
 
printf($"Get itemsremaining values from queue:"l$);
WHILE NOT itemobj queue is empty(example queue) DO
# OR example queue ISNT itemobj queue empty #
printf((diet item fmt, itemobj queue get(example queue), $l$))
OD</lang>'''Output:'''
<pre>
Get itemsremaining values from queue:
Cabbage: 111 lb. = $ 4.11
Dried Navy Beans: 285 lb. = $16.80
Line 82 ⟶ 85:
Total Annual Cost: = $39.93
</pre>
'''See also:''' [[Queue/DefinitionStack#ALGOL_68|ALGOL 68 Queue/DefinitionStack]]
 
=={{header|AppleScript}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/95358"