Count in octal: Difference between revisions
Content added Content deleted
| Line 167: | Line 167: | ||
<lang parigp>n=0;while(1,printf("%o\n",n);n++)</lang> |
<lang parigp>n=0;while(1,printf("%o\n",n);n++)</lang> |
||
=={{header|Perl}}== |
|||
Since task says "system register", I take it to mean "no larger than machine native integer limit": |
|||
<lang perl>use POSIX; |
|||
printf "%o\n", $_ for (0 .. POSIX::UINT_MAX);</lang> |
|||
Otherwise: |
|||
<lang perl>use bigint; |
|||
my $i = 0; |
|||
printf "%o\n", $i++ while 1</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>say .fmt: '%o' for 0 .. *;</lang> |
<lang perl6>say .fmt: '%o' for 0 .. *;</lang> |
||