Rosetta Code

Queue/Definition: Difference between revisions

Page Discussion

Queue/Definition (view source)

Revision as of 14:29, 22 September 2013

562 bytes removed ,  10 years ago
m
→‎{{header|ALGOL 68}}: use # Stigler's 1939 Diet ... # as test data.
m ({{Template:See also lists}})
m (→‎{{header|ALGOL 68}}: use # Stigler's 1939 Diet ... # as test data.)
Line 467:
self IS queue empty;
 
SKIP
SKIP</lang>'''File: test/queue.a68'''<lang algol68>#!/usr/bin/a68g --script #
# -*- coding: utf-8 -*- #
 
MODE QUEUEVALUE = STRING;
PR read "prelude/queue.a68" PR;
 
QUEUE example; queue init(example);
 
queue put(example, "Was");
queue put(example, "it");
queue put(example, "a");
queue put(example, "cat");
queue put(example, "I");
queue put(example, "saw");
 
print("Word queue:");
WHILE NOT queue is empty(example) DO
# OR example ISNT queue empty #
print((" ",queue get(example)))
OD;
print(new line)</lang>'''Output:'''
<pre>
Word queue: Was it a cat I saw
</pre>
=={{header|AWK}}==
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/40696"