diff options
| author | chirvasitua <stuart-little@users.noreply.github.com> | 2020-12-09 11:01:23 -0500 |
|---|---|---|
| committer | chirvasitua <stuart-little@users.noreply.github.com> | 2020-12-09 11:01:23 -0500 |
| commit | b80c47f63d8590beb01aad7c8924272ab4143f84 (patch) | |
| tree | d2e89c2356fc507826e2a6e3b3feeb2862e8f546 | |
| parent | 931e28a9fe63ad0942cf9f3099191a0e21a978c2 (diff) | |
| download | perlweeklychallenge-club-b80c47f63d8590beb01aad7c8924272ab4143f84.tar.gz perlweeklychallenge-club-b80c47f63d8590beb01aad7c8924272ab4143f84.tar.bz2 perlweeklychallenge-club-b80c47f63d8590beb01aad7c8924272ab4143f84.zip | |
1st commit on 043
| -rw-r--r-- | challenge-043/stuart-little/README | 1 | ||||
| -rwxr-xr-x | challenge-043/stuart-little/raku/ch-1.p6 | 13 | ||||
| -rwxr-xr-x | challenge-043/stuart-little/raku/ch-2.p6 | 16 |
3 files changed, 30 insertions, 0 deletions
diff --git a/challenge-043/stuart-little/README b/challenge-043/stuart-little/README new file mode 100644 index 0000000000..78439907de --- /dev/null +++ b/challenge-043/stuart-little/README @@ -0,0 +1 @@ +Solutions by Stuart Little diff --git a/challenge-043/stuart-little/raku/ch-1.p6 b/challenge-043/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..437ef3445c --- /dev/null +++ b/challenge-043/stuart-little/raku/ch-1.p6 @@ -0,0 +1,13 @@ +#!/usr/bin/env perl6 +use v6; + +# run as <script> + +say $=finish; + +=finish +Red: 9,2 +Green: 2,5,4 +Black: 4,6,1 +Yellow: 1,7,3 +Blue: 3,8 diff --git a/challenge-043/stuart-little/raku/ch-2.p6 b/challenge-043/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..1fc414067d --- /dev/null +++ b/challenge-043/stuart-little/raku/ch-2.p6 @@ -0,0 +1,16 @@ +#!/usr/bin/env perl6 +use v6; + +# run as <script> <base> + +sub self_desc($b where * >= 2) { + $b == (1,2,3,6).any && return "None" xx 2; + my $b10=($b-4) * $b ** ($b-1) + + 2 * $b ** ($b-2) + + $b ** ($b-3) + + $b ** 3; + $b10, (($b <= 36) ?? ($b10.base($b)) !! ("base too large")) +} + +my $base=@*ARGS[0]; +printf("Base 10: %s\nBase {$base}: %s\n", |self_desc($base)) |