RosettaCodeData/Task/Loops-Nested/Perl-6/loops-nested.pl6

11 lines
179 B
Raku
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
my @a = [ (1..20).roll(10) ] xx *;
LINE: for @a -> @line {
for @line -> $elem {
print " $elem";
last LINE if $elem == 20;
}
print "\n";
}
print "\n";