ALGOL 68/prelude: Difference between revisions
Content added Content deleted
m (→aArrayBase.a68) |
|||
| Line 155: | Line 155: | ||
# find the element in the list, if it is there # |
# find the element in the list, if it is there # |
||
BOOL found element := FALSE; |
BOOL found element := FALSE; |
||
INT ec := 0; |
|||
WHILE ( element ISNT nil element list ) |
WHILE ( element ISNT nil element list ) |
||
AND NOT found element |
AND NOT found element |
||
DO |
DO |
||
ec +:= 1; |
|||
found element := ( key OF element OF element = key ); |
found element := ( key OF element OF element = key ); |
||
IF found element |
IF found element |
||