From 0009cebb33b5a083beecefda863024ad02ec884c Mon Sep 17 00:00:00 2001
From: Hammy <sgoudham@gmail.com>
Date: Mon, 5 Apr 2021 22:06:37 +0100
Subject: [PATCH] Perform operations on lists

---
 Unit 1/Lesson 6/lists.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 Unit 1/Lesson 6/lists.hs

diff --git a/Unit 1/Lesson 6/lists.hs b/Unit 1/Lesson 6/lists.hs
new file mode 100644
index 0000000..fd25f92
--- /dev/null
+++ b/Unit 1/Lesson 6/lists.hs	
@@ -0,0 +1,9 @@
+myRepeat :: a -> [a]
+myRepeat n = cycle [n]
+
+subseq :: Int -> Int -> [a] -> [a]
+subseq first last aList = take last (drop first aList)
+
+inFirstHalf :: Eq a => a -> [a] -> Bool
+inFirstHalf item aList = item `elem` firstHalf
+    where firstHalf = take (length aList `div` 2) aList
\ No newline at end of file