100 doors: Difference between revisions
→{{header|ALGOL 68}}: Tweak the unoptimised version
imported>Grootson |
(→{{header|ALGOL 68}}: Tweak the unoptimised version) |
||
Line 946:
=={{header|ALGOL 68}}==
'''unoptimized'''
<syntaxhighlight lang="algol68">
PROC doors = (INT limit)VOID:▼
▲PROC doors = VOID:
(
MODE DOORSTATE = BOOL;
Line 960 ⟶ 958:
FOR i FROM LWB the doors TO UPB the doors DO
FOR j FROM LWB the doors BY i TO UPB the doors DO
OD
OD;
FOR i FROM LWB the doors TO UPB the doors DO
OD
);
doors
</syntaxhighlight>
'''optimized'''
<syntaxhighlight lang="algol68">PROC doors optimised = ( INT limit )VOID:
|