Dominoes: Difference between revisions
m
→{{header|Perl}}: make compatible with recent releases of Perl
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: make compatible with recent releases of Perl) |
||
Line 325:
use strict; # https://rosettacode.org/wiki/Dominoes
use warnings;
use feature 'bitwise';
my $gap = qr/(.{15}) (.{15})/s;
# NB: not 'blank' lines, need to be full-width white-space
my $grid = <<END;
0 5 1 3 2 2 3 1
Line 369 ⟶ 372:
if( ++$y > 6 ) # solved
{
print "\nfound:\n\n", $grid |. $try;
die;
}
Line 419 ⟶ 422:
5 5 0+6 1+6 2 6
+ +
3+6 4+6 5+6 6 6</pre>
=={{header|Phix}}==
| |||