diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-22 04:14:13 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-22 04:14:13 -0700 |
| commit | 72e0fca35d157f16d2bd65d5c3c1be18c72785c9 (patch) | |
| tree | 658059af92bb6b86cf302395b3e39c0c4585cec5 /challenge-101 | |
| parent | 087a3e000c8d0363b2b094384c166c4a262ba0bc (diff) | |
| download | perlweeklychallenge-club-72e0fca35d157f16d2bd65d5c3c1be18c72785c9.tar.gz perlweeklychallenge-club-72e0fca35d157f16d2bd65d5c3c1be18c72785c9.tar.bz2 perlweeklychallenge-club-72e0fca35d157f16d2bd65d5c3c1be18c72785c9.zip | |
initial ch-1.raku
Diffstat (limited to 'challenge-101')
| -rw-r--r-- | challenge-101/mark-anderson/raku/ch-1.raku | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/challenge-101/mark-anderson/raku/ch-1.raku b/challenge-101/mark-anderson/raku/ch-1.raku index 70d773f28c..60d1da0198 100644 --- a/challenge-101/mark-anderson/raku/ch-1.raku +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -10,32 +10,32 @@ is-deeply pack-a-spiral(1..17), [[1..17],]; is-deeply pack-a-spiral("A".."Z"), [["Z"..."N"], ["A".."M"]]; is-deeply pack-a-spiral(1..143), [ -[ 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23], -[ 36, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22], -[ 37, 74, 103, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21], -[ 38, 75, 104, 125, 124, 123, 122, 121, 120, 119, 94, 61, 20], -[ 39, 76, 105, 126, 139, 138, 137, 136, 135, 118, 93, 60, 19], -[ 40, 77, 106, 127, 140, 141, 142, 143, 134, 117, 92, 59, 18], -[ 41, 78, 107, 128, 129, 130, 131, 132, 133, 116, 91, 58, 17], -[ 42, 79, 108, 109, 110, 111, 112, 113, 114, 115, 90, 57, 16], -[ 43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 56, 15], -[ 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 14], -[ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13] +[35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23], +[36, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22], +[37, 74, 103, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21], +[38, 75, 104, 125, 124, 123, 122, 121, 120, 119, 94, 61, 20], +[39, 76, 105, 126, 139, 138, 137, 136, 135, 118, 93, 60, 19], +[40, 77, 106, 127, 140, 141, 142, 143, 134, 117, 92, 59, 18], +[41, 78, 107, 128, 129, 130, 131, 132, 133, 116, 91, 58, 17], +[42, 79, 108, 109, 110, 111, 112, 113, 114, 115, 90, 57, 16], +[43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 56, 15], +[44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 14], +[ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13] ]; is-deeply pack-a-spiral(1..144), [ -[ 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23], -[ 35, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22], -[ 36, 73, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21], -[ 37, 74, 103, 124, 123, 122, 121, 120, 119, 94, 61, 20], -[ 38, 75, 104, 125, 138, 137, 136, 135, 118, 93, 60, 19], -[ 39, 76, 105, 126, 139, 144, 143, 134, 117, 92, 59, 18], -[ 40, 77, 106, 127, 140, 141, 142, 133, 116, 91, 58, 17], -[ 41, 78, 107, 128, 129, 130, 131, 132, 115, 90, 57, 16], -[ 42, 79, 108, 109, 110, 111, 112, 113, 114, 89, 56, 15], -[ 43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 55, 14], -[ 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 13], -[ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12] +[34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23], +[35, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22], +[36, 73, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21], +[37, 74, 103, 124, 123, 122, 121, 120, 119, 94, 61, 20], +[38, 75, 104, 125, 138, 137, 136, 135, 118, 93, 60, 19], +[39, 76, 105, 126, 139, 144, 143, 134, 117, 92, 59, 18], +[40, 77, 106, 127, 140, 141, 142, 133, 116, 91, 58, 17], +[41, 78, 107, 128, 129, 130, 131, 132, 115, 90, 57, 16], +[42, 79, 108, 109, 110, 111, 112, 113, 114, 89, 56, 15], +[43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 55, 14], +[44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 13], +[ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12] ]; sub pack-a-spiral(@A is copy) |