1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/bin/env raku
use Test;
# The Weekly Challenge 215
sub pwc-test(Str:D $script, *@input) {
my ($expect, $assertion) = @input.splice(*-2, 2);
my $p = run $script, |@input, :out;
is $p.out.slurp(:close).chomp, $expect, $assertion;
}
# Task 1, Odd One Out
pwc-test './ch-1.raku', |<abc xyz tsu>, 1, "Odd One out: 'abc', 'xyz', 'tsu' => 1";
pwc-test './ch-1.raku', |<rat cab dad>, 3, "Odd One out: 'rat', 'cab', 'dad' => 3";
pwc-test './ch-1.raku', |<x y z>, 0, "Odd One out: 'x', 'y', 'z' => 0";
# Task 2, Number Placement
pwc-test './ch-2.raku', |<1 0 0 0 1>, 1, 1, 'Number Placement: @numbers = (1,0,0,0,1), $count = 1 => 1';
pwc-test './ch-2.raku', |<1 0 0 0 1>, 2, 0, 'Number Placement: @numbers = (1,0,0,0,1), $count = 2 => 0';
pwc-test './ch-2.raku', |<1 0 0 0 0 0 0 0 1>, 3, 1, 'Number Placement: @numbers = (1,0,0,0,0,0,0,0,1), $count = 3 => 1';
pwc-test './ch-2.raku', |<0 0 0 0 0>, 3, 1, 'Number Placement: @numbers = (0,0,0,0,0), $count = 3 => 1';
pwc-test './ch-2.raku', |<0 0 0 0 0>, 4, 0, 'Number Placement: @numbers = (0,0,0,0,0), $count = 4 => 0';
pwc-test './ch-2.raku', |<1 0 0 0 0 0 0 0 1>, 5, 1, 'Number Placement: @numbers = (1,0,0,0,0,0,0,0,1), $count = 5 => 1';
pwc-test './ch-2.raku', |<1 0 0 0 0 0 0 0 1>, 6, 0, 'Number Placement: @numbers = (1,0,0,0,0,0,0,0,1), $count = 6 => 0';
pwc-test './ch-2.raku', |<1 0 0 0 1 0 0 0 1>, 2, 1, 'Number Placement: @numbers = (1,0,0,0,1,0,0,0,1), $count = 2 => 1';
pwc-test './ch-2.raku', |<1 0 0 0 1 0 0 0 1>, 3, 0, 'Number Placement: @numbers = (1,0,0,0,1,0,0,0,1), $count = 3 => 0';
done-testing;
|
