5 lines
68 B
Perl
5 lines
68 B
Perl
my $val = 0;
|
|
do {
|
|
$val++;
|
|
print "$val\n";
|
|
} while ($val % 6);
|