diff options
| author | chirvasitua <stuart-little@users.noreply.github.com> | 2020-11-21 11:43:21 -0500 |
|---|---|---|
| committer | chirvasitua <stuart-little@users.noreply.github.com> | 2020-11-21 11:43:21 -0500 |
| commit | f8b559aed7f7d1f161eee1267ee662f27e67ac83 (patch) | |
| tree | ba43b0bd0222e297854678b7a90fccc6f076c007 /challenge-058 | |
| parent | 3515458c7a0532e4b4475b3ad4b34e4e92b7dc99 (diff) | |
| download | perlweeklychallenge-club-f8b559aed7f7d1f161eee1267ee662f27e67ac83.tar.gz perlweeklychallenge-club-f8b559aed7f7d1f161eee1267ee662f27e67ac83.tar.bz2 perlweeklychallenge-club-f8b559aed7f7d1f161eee1267ee662f27e67ac83.zip | |
initial commit on 056--059
Diffstat (limited to 'challenge-058')
| -rw-r--r-- | challenge-058/stuart-little/README | 1 | ||||
| -rwxr-xr-x | challenge-058/stuart-little/raku/ch-1.p6 | 10 | ||||
| -rwxr-xr-x | challenge-058/stuart-little/raku/ch-2.p6 | 12 |
3 files changed, 23 insertions, 0 deletions
diff --git a/challenge-058/stuart-little/README b/challenge-058/stuart-little/README new file mode 100644 index 0000000000..78439907de --- /dev/null +++ b/challenge-058/stuart-little/README @@ -0,0 +1 @@ +Solutions by Stuart Little diff --git a/challenge-058/stuart-little/raku/ch-1.p6 b/challenge-058/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..6e008f388a --- /dev/null +++ b/challenge-058/stuart-little/raku/ch-1.p6 @@ -0,0 +1,10 @@ +#!/usr/bin/env perl6 +use v6; + +sub versprcs($v) { + $v.comb.map({ $_.Int || $_ }).map({ $_ ~~ Str && $_.trans(['.','_']=>['_','.']) || $_ }) +} + +say (@*ARGS[0].&versprcs cmp @*ARGS[1].&versprcs).Int + +# run as <script> <1st version number> <2nd version number> diff --git a/challenge-058/stuart-little/raku/ch-2.p6 b/challenge-058/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..6f6fa024ba --- /dev/null +++ b/challenge-058/stuart-little/raku/ch-2.p6 @@ -0,0 +1,12 @@ +#!/usr/bin/env perl6 +use v6; + +sub inspair(@a,$p) { |@a[0..^$p.value], $p.key, |@a[$p.value..*] } + +my @H=(27, 21, 37, 4, 19, 52, 23, 64, 1, 7, 51, 17, 24, 50, 3, 2, 34, 40, 47, 20, 8, 56, 14, 16, 42, 38, 62, 53, 31, 41, 55, 59, 48, 12, 32, 61, 9, 60, 46, 26, 58, 25, 15, 36, 11, 44, 63, 28, 5, 54, 10, 49, 57, 30, 29, 22, 35, 39, 45, 43, 18, 6, 13, 33); +my @T=( 6, 41, 1, 49, 38, 12, 1, 0, 58, 47, 4, 17, 26, 1, 61, 12, 29, 3, 4, 11, 45, 1, 32, 5, 9, 19, 1, 4, 28, 12, 2, 2, 13, 18, 19, 3, 4, 1, 10, 16, 4, 3, 29, 5, 49, 1, 1, 24, 2, 1, 38, 7, 7, 14, 35, 25, 0, 5, 4, 19, 10, 13, 4, 12); + +my @A=reduce(&inspair, (), |(@H Z=> @T).sort({ -$_.key.Int })); +say (@A.any ~~ Nil) ?? ("Error: no solution possible") !! (@A) + +# run as <script> |