Integer sequence: Difference between revisions
(→{{header|QBASIC}}: Add two Python solutions) |
|||
Line 79:
}
</lang>
=={{header|Python}}==
<lang python>i=1
while i:
print(i)
i += 1</lang>
Or, alternatively:
<lang python>from itertools import count
for i in count():
print(i)</lang>
=={{header|QBASIC}}==
|
Revision as of 06:13, 13 February 2011
Create a program that, when run, would display all integers from 1 to ∞ (or any relevant implementation limit), in sequence (i.e. 1, 2, 3, 4, etc) if given enough time.
BASIC
<lang basic>5 LET A = 0 10 LET A = A + 1 20 PRINT A 30 GOTO 10</lang>
C
<lang c>#include <stdio.h>
- include <stdint.h>
int main() {
uint32_t i = 0; while (1) { printf("%u\n", ++i); }
return 0;
}</lang>
Alternatively: <lang c>#include <stdio.h>
- include <stdint.h>
int main() {
for (uint32_t i = 1; 1; i++) printf("%u\n", i);
return 0;
}</lang>
C++
<lang cpp>#include <iostream>
- include <cstdint>
int main() {
uint32_t i = 0; while(true) std::cout << ++i << std::endl;
return 0;
}</lang>
Common Lisp
<lang lisp>(loop for i from 1 do (print i))</lang>
Haskell
<lang haskell>mapM_ print [1..]</lang>
Or less imperatively:
<lang haskell>(putStr . unlines . map show) [1..]</lang>
Java
Long limit: <lang java>public class Count{
public static void main(String[] args){ for(long i = 1; ;i++) System.out.println(i); }
}</lang> "Forever": <lang java>import java.math.BigInteger;
public class Count{
public static void main(String[] args){ for(BigInteger i = BigInteger.ONE; ;i = i.add(BigInteger.ONE)) System.out.println(i); }
}</lang>
Perl
<lang perl>my $i = 0; while(1) {
print ++$i . "\n";
} </lang>
Python
<lang python>i=1 while i:
print(i) i += 1</lang>
Or, alternatively: <lang python>from itertools import count
for i in count():
print(i)</lang>
QBASIC
<lang qbasic>A = 0 DO: A = A + 1: PRINT A: LOOP 1</lang>