C_C++
Haskell
10.hs
2.hs
3.hs
4.hs
5.hs
7.hs
dist.hs
hw.hs
operators.hs
prime.hs
test.hs
unzip.hs
zh_I.hs
zh_II.hs
Java
LaTeX
Misc.
Python
Vim
Webdev
git
.gitignore
Makefile
8 lines
210 B
Haskell
8 lines
210 B
Haskell
-- 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
|