Nonoblock: Difference between revisions
m
→{{header|Perl}}: lightly edited for clarity
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: oops, language tag) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: lightly edited for clarity) |
||
Line 1,233:
=={{header|Perl}}==
<lang
use warnings;
Line 1,243 ⟶ 1,241:
my ($cells, @blocks) = split;
my $letter = 'A';
$_ = join '.', map { $letter++ x $_
$cells < length and print("no solution\n"), next;
$_ .= '.' x ($cells - length) . "\n";
|