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