Solve a Hopido puzzle: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Include referenced routine to make runnable file) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Over enthusiastic pasting) |
||
Line 828: | Line 828: | ||
END |
END |
||
solveboard q:to/END/; |
|||
__ 33 35 __ __ .. .. .. |
|||
__ __ 24 22 __ .. .. .. |
|||
__ __ __ 21 __ __ .. .. |
|||
__ 26 __ 13 40 11 .. .. |
|||
27 __ __ __ 9 __ 1 .. |
|||
.. .. __ __ 18 __ __ .. |
|||
.. .. .. .. __ 7 __ __ |
|||
.. .. .. .. .. .. 5 __ |
|||
END |
|||
sub solveboard($board) { |
sub solveboard($board) { |
||
my $max = +$board.comb(/\w+/); |
my $max = +$board.comb(/\w+/); |