diff options
| -rwxr-xr-x | challenge-344/feng-chang/raku/ch-1.raku | 6 | ||||
| -rwxr-xr-x | challenge-344/feng-chang/raku/ch-2.raku | 9 | ||||
| -rwxr-xr-x | challenge-344/feng-chang/raku/test.raku | 28 |
3 files changed, 43 insertions, 0 deletions
diff --git a/challenge-344/feng-chang/raku/ch-1.raku b/challenge-344/feng-chang/raku/ch-1.raku new file mode 100755 index 0000000000..fdfcf0f0e0 --- /dev/null +++ b/challenge-344/feng-chang/raku/ch-1.raku @@ -0,0 +1,6 @@ +#!/bin/env raku + +unit sub MAIN(*@ints); + +my $x = @ints.pop; +put (@ints.join + $x).comb; diff --git a/challenge-344/feng-chang/raku/ch-2.raku b/challenge-344/feng-chang/raku/ch-2.raku new file mode 100755 index 0000000000..cf8abdc5a1 --- /dev/null +++ b/challenge-344/feng-chang/raku/ch-2.raku @@ -0,0 +1,9 @@ +#!/bin/env raku + +unit sub MAIN(Str:D $src, Str:D $tgt); + +use MONKEY-SEE-NO-EVAL; + +my @a = EVAL $src; +my @t = EVAL $tgt; +put so @t.join == @a.map(*.join).permutations.map(*.join).any; diff --git a/challenge-344/feng-chang/raku/test.raku b/challenge-344/feng-chang/raku/test.raku new file mode 100755 index 0000000000..1b8bda6fe1 --- /dev/null +++ b/challenge-344/feng-chang/raku/test.raku @@ -0,0 +1,28 @@ +#!/bin/env raku + +# The Weekly Challenge 343 +use Test; + +sub pwc-test(Str:D $script, Bool :$deeply? = False, *@input) { + my ($expect, $assertion) = @input.splice(*-2, 2); + my $p = run $script, |@input, :out; + if $deeply { + is-deeply $p.out.slurp(:close).chomp.words.Bag, $expect, $assertion; + } else { + is $p.out.slurp(:close).chomp, $expect, $assertion; + } +} + +# Task 1, Array Form Compute +pwc-test './ch-1.raku', <1 2 3 4 12>, '1 2 4 6', 'Array Form Compute: (1,2,3,4),12 => (1,2,4,6)'; +pwc-test './ch-1.raku', <2 7 4 181>, '4 5 5', 'Array Form Compute: (2,7,4),181 => (4,5,5)'; +pwc-test './ch-1.raku', <9 9 9 1>, '1 0 0 0', 'Array Form Compute: (9,9,9),1 => (1,0,0,0)'; +pwc-test './ch-1.raku', <1 0 0 0 0 9999>, '1 9 9 9 9', 'Array Form Compute: (1,0,0,0,0),9999 => (1,9,9,9,9)'; +pwc-test './ch-1.raku', <0 1000>, '1 0 0 0', 'Array Form Compute: (0),1000 => (1,0,0,0)'; + +# Task 2, Array Formation +pwc-test './ch-2.raku', '[2,3],[1],[4]', '1,2,3,4', 'True', 'Array Formation: @source=[2,3],[1],[4], @target=(1,2,3,4) => true'; +pwc-test './ch-2.raku', '[1,3],[2,4]', '1,2,3,4', 'False', 'Array Formation: @source=[1,3],[2,4], @target=(1,2,3,4) => false'; +pwc-test './ch-2.raku', '[9,1],[5,8],[2]', '5,8,2,9,1', 'True', 'Array Formation: @source=[9,1],[5,8],[2], @target=(5,8,2,9,1) => true'; +pwc-test './ch-2.raku', '[1],[3]', '1,2,3', 'False', 'Array Formation: @source=[1],[3], @target=(1,2,3) => false'; +pwc-test './ch-2.raku', '[7],[4],[6]', '7,4,6', 'True', 'Array Formation: @source=[7],[4],[6], @target=(7,4,6) => true'; |