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