RosettaCodeData/Task/Loops-Do-while/Perl-6/loops-do-while-1.pl6

5 lines
56 B
Raku
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
my $val = 0;
repeat {
say ++$val;
} while $val % 6;