aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Task/Queue-Definition/ALGOL-W/queue-definition.alg Normal file
View file

@ -0,0 +1,51 @@
begin
% define a Queue type that will hold StringQueueElements %
record StringQueue ( reference(StringQueueElement) front, back );
% define the StringQueueElement type %
record StringQueueElement ( string(8) element
; reference(StringQueueElement) next
);
% we would need separate types for other element types %
% adds s to the end of the StringQueue q %
procedure pushString ( reference(StringQueue) value q
; string(8) value e
) ;
begin
reference(StringQueueElement) newElement;
newElement := StringQueueElement( e, null );
if front(q) = null then begin
% adding to an empty queue %
front(q) := newElement;
back(q) := newElement
end
else begin
% the queue is not empty %
next(back(q)) := newElement;
back(q) := newElement
end
end pushString ;
% removes an element from the front of the StringQueue q %
% asserts the queue is not empty, which will stop the %
% program if it is %
string(8) procedure popString ( reference(StringQueue) value q ) ;
begin
string(8) v;
assert( not isEmptyStringQueue( q ) );
v := element(front(q));
front(q) := next(front(q));
if front(q) = null then % just popped the last element % back(q) := null;
v
end popStringQueue ;
% returns true if the StringQueue q is empty, false otherwise %
logical procedure isEmptyStringQueue ( reference(StringQueue) value q ) ; front(q) = null;
begin % test the StringQueue operations %
reference(StringQueue) q;
q := StringQueue( null, null );
pushString( q, "fred" );
pushString( q, "whilma" );
pushString( q, "betty" );
pushString( q, "barney" );
while not isEmptyStringQueue( q ) do write( popString( q ) )
end
end.