Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
12
Task/Integer-sequence/ALGOL-W/integer-sequence.alg
Normal file
12
Task/Integer-sequence/ALGOL-W/integer-sequence.alg
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
begin
|
||||
% print the integers from 1 onwards %
|
||||
% Algol W only has 32-bit integers. When i reaches 2^32, %
|
||||
% an integer overflow event would be raised which by default, %
|
||||
% should terminate the program %
|
||||
integer i;
|
||||
i := 1;
|
||||
while true do begin
|
||||
write( i );
|
||||
i := i + 1
|
||||
end loop_forever ;
|
||||
end.
|
||||
Loading…
Add table
Add a link
Reference in a new issue