Anonymous user
Integer sequence: Difference between revisions
Added solution for Action!
m (→{{header|Phix}}: added gui version and online link) |
(Added solution for Action!) |
||
Line 97:
; We zero this memory before the loop
END</lang>
=={{header|Action!}}==
<lang Action!>PROC Main()
CARD i
i=0
DO
PrintF("%U ",i)
i==+1
UNTIL i=0
OD
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Integer_sequence.png Screenshot from Atari 8-bit computer]
<pre>
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ...
</pre>
=={{header|Ada}}==
| |||