Question 3 Variants Added

Assets/Solutions/Mid-Term/Q3/V1.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:y:xs) = y : x : pairswap xs
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Aishwarya G, Dyanesh S 
+

Assets/Solutions/Mid-Term/Q3/V2.hs

@@ -0,0 +1,17 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap x = [x!!1] ++ [x!!0] ++ pairswap (drop 2 x)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Aravind S, 

Assets/Solutions/Mid-Term/Q3/V3.hs

@@ -0,0 +1,19 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap x = reverse (take 2 x) ++ pairswap (drop 2 x)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Ashwin Anand, Hemsagar with a mistake (:),
+-- Jivan Prasadd with mistake of (+), Dharmik, 
+

Assets/Solutions/Mid-Term/Q3/V4.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:xs) = [head xs, x] ++ pairswap (tail xs)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Gokul,  
+

Assets/Solutions/Mid-Term/Q3/V5.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:y:xs) = [y,x] ++ pairswap xs 
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Ravi,  
+

Assets/Solutions/Mid-Term/Q3/V6.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:xs) = [head xs] ++ [x] ++ pairswap(drop 1 xs)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Yaswanth,  
+

Assets/Solutions/Mid-Term/Q3/V7.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:y:xs) = [y] ++ [x] ++ pairswap(xs)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Nithin S, Siddharth Krishna, Rakshan K, 	
+

Assets/Solutions/Mid-Term/Q3/V8.hs

@@ -0,0 +1,18 @@
+pairswap :: [a] -> [a]
+pairswap [] = []
+pairswap (x:xs) = [head xs] ++ [x] ++ pairswap(tail xs)
+
+main :: IO ()
+main = do
+    let listInput = [1..6]
+        stringInput = "ammu"
+        emptyList = [] 
+    putStrLn $ "Input List:" ++ show listInput
+    putStrLn $ "Pairwise Swapped List:" ++ show (pairswap listInput)
+    putStrLn $ "Input String:" ++ stringInput
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap stringInput)
+    putStrLn $ "Input String:" ++ emptyList
+    putStrLn $ "Pairwise Swapped String:" ++ (pairswap emptyList)
+
+-- Solved this way by Ganasekhar,  
+