From 8410239d8cc4f86038542b6ffffe13f36b46bae6 Mon Sep 17 00:00:00 2001
From: p9malino26 <pm3g19@soton.ac.uk>
Date: Fri, 7 May 2021 12:04:12 +0100
Subject: [PATCH] Added solutions to remaining problem files.

---
 pr10.cql |  7 +++++--
 pr8.cql  |  9 +++++++++
 pr9.cql  | 13 +++++++++++++
 3 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/pr10.cql b/pr10.cql
index bb4e262..33aace0 100644
--- a/pr10.cql
+++ b/pr10.cql
@@ -1,5 +1,8 @@
 .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]);
diff --git a/pr8.cql b/pr8.cql
index e69de29..909ff3a 100644
--- a/pr8.cql
+++ b/pr8.cql
@@ -0,0 +1,9 @@
+.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])]);
diff --git a/pr9.cql b/pr9.cql
index e69de29..42885d2 100644
--- a/pr9.cql
+++ b/pr9.cql
@@ -0,0 +1,13 @@
+.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]);
-- 
GitLab