diff options
| -rw-r--r-- | challenge-006/stuart-little/README | 1 | ||||
| -rwxr-xr-x | challenge-006/stuart-little/raku/ch-1.p6 | 10 | ||||
| -rwxr-xr-x | challenge-006/stuart-little/raku/ch-2.p6 | 15 |
3 files changed, 26 insertions, 0 deletions
diff --git a/challenge-006/stuart-little/README b/challenge-006/stuart-little/README new file mode 100644 index 0000000000..78439907de --- /dev/null +++ b/challenge-006/stuart-little/README @@ -0,0 +1 @@ +Solutions by Stuart Little diff --git a/challenge-006/stuart-little/raku/ch-1.p6 b/challenge-006/stuart-little/raku/ch-1.p6 new file mode 100755 index 0000000000..c475bdde13 --- /dev/null +++ b/challenge-006/stuart-little/raku/ch-1.p6 @@ -0,0 +1,10 @@ +#!/usr/bin/env perl6 +use v6; + +# run as <script> <space-separated list entries> + +sub compactify(@a) { + S:g/\D*\-\D*/-/ with @a.sort.unique.map({ (($_-1,$_,$_+1).all == @a.any) ?? '-' !! $_ }).join(',') +} + +say @*ARGS.map(*.Int).&compactify diff --git a/challenge-006/stuart-little/raku/ch-2.p6 b/challenge-006/stuart-little/raku/ch-2.p6 new file mode 100755 index 0000000000..fb07fe23cd --- /dev/null +++ b/challenge-006/stuart-little/raku/ch-2.p6 @@ -0,0 +1,15 @@ +#!/usr/bin/env perl6 +use v6; + +# run as <script> + +use Inline::Perl5; +my $p5 = Inline::Perl5.new; + +$p5.run(q{ + use v5.12; + use Math::BigFloat; + Math::BigFloat->precision(-60); + + say substr(Math::BigFloat->new('1')->bexp()->bpow(Math::BigFloat->bpi()->bmul(Math::BigFloat->new('163')->bsqrt())->bround(60)),0,52); + }); |