/
ch-2.raku
29 lines (25 loc) · 873 Bytes
/
ch-2.raku
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
#!/usr/bin/env raku
use Test;
is-deeply weakest-rows([ <1 1 0 0 0>,
<1 1 1 1 0>,
<1 0 0 0 0>,
<1 1 0 0 0>,
<1 1 1 1 1> ]), (2,0,3,1,4);
is-deeply weakest-rows([ <1 0 0 0>,
<1 1 1 1>,
<1 0 0 0>,
<1 0 0 0> ]), (0,2,3,1);
is-deeply weakest-rows([ <1 1 0 0 0>,
<0 0 0 0 0>,
<1 1 1 1 0>,
<0 0 0 0 0>,
<1 1 1 1 1>,
<0 0 0 0 0>,
<1 1 0 0 0>,
<1 1 1 1 1>,
<1 1 1 1 1>,
<1 0 0 0 0> ]), (1,3,5,9,0,6,2,4,7,8);
sub weakest-rows($m)
{
$m.sort(:k) # requires 2023.08 or later
}