diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-09-13 09:19:27 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-09-13 09:19:27 -0600 |
| commit | d037132807b04043f0d02b2e6b4f0ef718427680 (patch) | |
| tree | 1a1a97d69527142be54d1c907f830c8a8e259db6 | |
| parent | 1d51af8dcbcf9e67ed5518b6d2ac0638d1f4eec5 (diff) | |
| download | perlweeklychallenge-club-d037132807b04043f0d02b2e6b4f0ef718427680.tar.gz perlweeklychallenge-club-d037132807b04043f0d02b2e6b4f0ef718427680.tar.bz2 perlweeklychallenge-club-d037132807b04043f0d02b2e6b4f0ef718427680.zip | |
a few improvements
| -rw-r--r-- | challenge-077/mark-anderson/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-077/mark-anderson/raku/ch-2.raku | 22 |
2 files changed, 11 insertions, 13 deletions
diff --git a/challenge-077/mark-anderson/raku/ch-1.raku b/challenge-077/mark-anderson/raku/ch-1.raku index 5505be511f..cab9692458 100644 --- a/challenge-077/mark-anderson/raku/ch-1.raku +++ b/challenge-077/mark-anderson/raku/ch-1.raku @@ -1,6 +1,6 @@ unit sub MAIN(UInt $N); -my @fib = (1, 1, * + * ... * + * > $N).unique; +my @fib = (1, 2, * + * ... $N <= * + *); my @results = gather { for 2..@fib -> $n { diff --git a/challenge-077/mark-anderson/raku/ch-2.raku b/challenge-077/mark-anderson/raku/ch-2.raku index 767c3aaf67..4f5bd9e18c 100644 --- a/challenge-077/mark-anderson/raku/ch-2.raku +++ b/challenge-077/mark-anderson/raku/ch-2.raku @@ -9,18 +9,16 @@ lonely-X([ <O O X O>, sub lonely-X(@matrix) { my @results = gather { - for ^@matrix -> $r { - for ^@matrix[0] -> $c { - if @matrix[$r][$c] eq "X" { - take [$r, $c] unless any((@matrix[$r-1][$c-1] // q{}), - (@matrix[$r-1][$c ] // q{}), - (@matrix[$r-1][$c+1] // q{}), - (@matrix[$r ][$c-1] // q{}), - (@matrix[$r ][$c+1] // q{}), - (@matrix[$r+1][$c+1] // q{}), - (@matrix[$r+1][$c ] // q{}), - (@matrix[$r+1][$c-1] // q{})) eq "X"; - } + for ^@matrix X ^@matrix[0] -> ($r, $c) { + if @matrix[$r][$c] eq "X" { + take [$r, $c] unless any((@matrix[$r-1][$c-1] // q{}), + (@matrix[$r-1][$c ] // q{}), + (@matrix[$r-1][$c+1] // q{}), + (@matrix[$r ][$c-1] // q{}), + (@matrix[$r ][$c+1] // q{}), + (@matrix[$r+1][$c+1] // q{}), + (@matrix[$r+1][$c ] // q{}), + (@matrix[$r+1][$c-1] // q{})) eq "X"; } } } |