Jump to content

Queue/Usage: Difference between revisions

m
→‎{{header|ALGOL 68}}: renaming variables.
m (→‎{{header|ALGOL 68}}: define and use a +=: operator)
m (→‎{{header|ALGOL 68}}: renaming variables.)
Line 45:
 
# Stigler's 1939 Diet ... #
FORMAT diet item fmt = $g": "g" "g" = $"zzdzd.dd$;
[]DIETITEM stigler diet = (
("Cabbage", "111","lb.", 4.11),
Line 56:
# -*- coding: utf-8 -*- #
 
MODE QUEUEITEMDLINKITEM = DIETITEM;
PR read "prelude/queue_linkdouble_link.a68" PR;
PR read "prelude/queue_base.a68" PR;
 
Line 75:
<pre>
Get items from queue:
Cabbage: 111 lb. = $ 4.11
Dried Navy Beans: 285 lb. = $ 16.80
Evaporated Milk: 57 cans = $ 3.84
Spinach: 23 lb. = $ 1.85
Wheat Flour: 370 lb. = $ 13.33
Total Annual Cost: = $ 39.93
</pre>
 
Cookies help us deliver our services. By using our services, you agree to our use of cookies.