From 5fddab39252936915a2010e20f7539c63e5abb6d Mon Sep 17 00:00:00 2001
From: anon <anon@anon.anon>
Date: Mon, 22 Jul 2024 19:39:19 +0200
Subject: [PATCH] Added 'Haskell/unzip.hs'

---
 Haskell/unzip.hs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 Haskell/unzip.hs

diff --git a/Haskell/unzip.hs b/Haskell/unzip.hs
new file mode 100644
index 0000000..eb2b1fc
--- /dev/null
+++ b/Haskell/unzip.hs
@@ -0,0 +1,7 @@
+-- 4.
+-- unzip' [('a', 1), ('b', 2)] = ("ab", [1, 2])
+
+unzip'' :: ([a], [b]) -> [(a, b)] -> ([a], [b])
+unzip'' l [] = l
+unzip'' (a, b) ((c, d):xs) = unzip''(a ++ [c], b ++ [d]) xs
+unzip' l = unzip'' ([], []) l