diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-21 14:03:06 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2024-05-21 14:03:06 +0000 |
| commit | 031c5366cd5c188ab49a2e5b739374a0cdde7774 (patch) | |
| tree | 10682c9d033e148b0279e513dcd60cbd16412780 | |
| parent | f97c3980ceb9e55f7e1c60abcf9a7171db8f96bc (diff) | |
| download | perlweeklychallenge-club-031c5366cd5c188ab49a2e5b739374a0cdde7774.tar.gz perlweeklychallenge-club-031c5366cd5c188ab49a2e5b739374a0cdde7774.tar.bz2 perlweeklychallenge-club-031c5366cd5c188ab49a2e5b739374a0cdde7774.zip | |
ch-1.raku was not correct
| -rw-r--r-- | challenge-270/mark-anderson/raku/ch-1.raku | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/challenge-270/mark-anderson/raku/ch-1.raku b/challenge-270/mark-anderson/raku/ch-1.raku deleted file mode 100644 index 6503db87f3..0000000000 --- a/challenge-270/mark-anderson/raku/ch-1.raku +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/env raku -use Test; - -is special-positions([ - [1,0,0], - [0,0,1], - [1,0,0], - ]), 1; - -is special-positions([ - [1,0,0], - [0,1,0], - [0,0,1], - ]), 3; - -sub special-positions(@m) -{ - @m .= grep(*.one); - + ([Z] @m).grep(*.one) -} |