diff options
Diffstat (limited to 'challenge-126/james-smith/README.md')
| -rw-r--r-- | challenge-126/james-smith/README.md | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/challenge-126/james-smith/README.md b/challenge-126/james-smith/README.md index 6f2ffee2f8..9b9be88add 100644 --- a/challenge-126/james-smith/README.md +++ b/challenge-126/james-smith/README.md @@ -77,9 +77,19 @@ sub solve { foreach my $y ( 0 .. $h ) { push @res, join '', map { $g[$y][$_] ? 'x' : - ( $y ? ( $_ ? $g[$y-1][$_-1] : 0 ) + $g[$y-1][$_] + ( $_<$w ? $g[$y-1][$_+1] : 0 ) : 0 ) + - ( $_ ? $g[$y ][$_-1] : 0 ) + $g[$y ][$_] + ( $_<$w ? $g[$y ][$_+1] : 0 ) + - ( $y<$h ? ( $_ ? $g[$y+1][$_-1] : 0 ) + $g[$y+1][$_] + ( $_<$w ? $g[$y+1][$_+1] : 0 ) : 0 ) + ( $y ? ( $_ ? $g[$y-1][$_-1] : 0 ) + + $g[$y-1][$_ ] + + ( $_<$w ? $g[$y-1][$_+1] : 0 ) + : 0 ) + + + ( $_ ? $g[$y ][$_-1] : 0 ) + + $g[$y ][$_ ] + + ( $_<$w ? $g[$y ][$_+1] : 0 ) + + + ( $y<$h ? ( $_ ? $g[$y+1][$_-1] : 0 ) + + $g[$y+1][$_ ] + + ( $_<$w ? $g[$y+1][$_+1] : 0 ) + : 0 ) } 0 .. $w; } return join "\n", @res; |