pr3.cql 173 Bytes
Newer Older
pm3g19's avatar
pm3g19 committed
1
2
3
4
5
6
7
8
9
.in
P: 4,
Q: 4

.out
P x Q;
filter(\(r) -> r[1] == r[5]);
let f = \(a,y) -> if (isEmpty(a)) then y else a;
map (\(r) -> [r[1], f(r[2], r[6]), f(r[3], r[7]), f(r[4], r[8])]);