Nonoblock: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl 6 example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: oops, language tag) |
||
Line 1,299: | Line 1,299: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{trans|Perl}} |
{{trans|Perl}} |
||
<lang |
<lang perl6>for (5, [2,1]), (5, []), (10, [8]), (5, [2,3]), (15, [2,3,2,3]) -> ($cells, @blocks) { |
||
say $cells, ' cells with blocks: ', @blocks ?? join ', ', @blocks !! '∅'; |
say $cells, ' cells with blocks: ', @blocks ?? join ', ', @blocks !! '∅'; |
||
my $letter = 'A'; |
my $letter = 'A'; |