Added 'Haskell/unzip.hs'

2024-07-22 19:39:19 +02:00 · 2024-07-22 19:39:19 +02:00 · 5fddab3925
commit 5fddab3925
parent d502c853df
1 changed files with 7 additions and 0 deletions
--- a/Haskell/unzip.hs
+++ 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