Thanks about return. That means I need replace:
return $map[$yCur-1][$xCur-1] eq $wall;
with
return if!($map[$yCur-1][$xCur-1] eq $wall);?
but when are you realy going to have a truth in list context? hmm I wounder is perl6 with have a list function....
I don't know much about grep but that apears to be equivalent to
if(
&test2($xCur, $yCur, $wall) &&
&test3($xCur, $yCur, $wall) &&
&test4($xCur, $yCur, $wall) &&
&test5($xCur, $yCur, $wall) &&
&test6($xCur, $yCur, $wall) &&
&test7($xCur, $yCur, $wall) &&
&test8($xCur, $yCur, $wall))
It gets me this
((((..(
(..(..(
(..(..(
((((..(
......(
(((((((
(..(..(
(..(..(
(((((((
(..(..(
(((((((
Not this.
(.)....
.......
.......
(..)...
.......
(.)(.).
.......
.......
.().(.)
.......
.......
and I don't see you doing anything to prevent wraping around the array?
|\_/|
/o o\
(>_<)
`-'
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.