Commit 8410239d authored by pm3g19's avatar pm3g19
Browse files

Added solutions to remaining problem files.

parent 5585af98
.in
B:1
S:3,
T:3
.out
B;
\ No newline at end of file
S x T;
filter (\(r) -> r[1]==r[2] and r[5]==r[6]);
map (\(r) -> r[3,4]);
.in
P:4,
Q:4
.out
P x Q;
filter (\(r) -> r[4]==r[8]);
let f = \(p,q) -> if (isEmpty(q)) then p else q;
map (\(r) -> [f(r[1],r[5]), f(r[2], r[6]), f(r[3], r[7]), f(r[4], r[8])]);
.in
R:2
.out
R x R x R;
filter ( \(r) ->
r[2] == r[3]
and
r[4] == r[5]
);
map (\(r) -> r[1,6]);
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment