Solve a Hopido puzzle: Difference between revisions

m
→‎{{header|Perl 6}}: Over enthusiastic pasting
m (→‎{{header|Perl 6}}: Include referenced routine to make runnable file)
m (→‎{{header|Perl 6}}: Over enthusiastic pasting)
Line 828:
END
 
solveboard q:to/END/;
__ 33 35 __ __ .. .. ..
__ __ 24 22 __ .. .. ..
__ __ __ 21 __ __ .. ..
__ 26 __ 13 40 11 .. ..
27 __ __ __ 9 __ 1 ..
.. .. __ __ 18 __ __ ..
.. .. .. .. __ 7 __ __
.. .. .. .. .. .. 5 __
END
sub solveboard($board) {
my $max = +$board.comb(/\w+/);
10,333

edits