Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
10
Task/Loops-Nested/Perl-6/loops-nested.pl6
Normal file
10
Task/Loops-Nested/Perl-6/loops-nested.pl6
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
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";
|
||||
Loading…
Add table
Add a link
Reference in a new issue