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