haskell-zip-unzip函数实现

孜然与盐处理

于 2021-07-12 13:30:22 发布

阅读量222

点赞数

分类专栏：函数式编程数据结构文章标签：数据结构算法 haskell 函数式编程

本文链接：https://blog.csdn.net/weixin_43423614/article/details/118673082

版权

函数式编程同时被 2 个专栏收录

15 篇文章

订阅专栏

数据结构

15 篇文章

订阅专栏

本文介绍了如何使用Python实现myUnzip函数，用于将元组的key-value对拆分成两个列表，并展示了myZip函数的用法，用于将两个列表合并为元组对。这些操作在数据处理和函数式编程中非常实用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

-- unzip 将map的key和value分别取出放到2个list中
myUnzip :: [(a, b)] -> ([a], [b])
myUnzip [] = ([], [])
myUnzip ((x, y) : zs) = (x : xs, y : ys)
    where (xs, ys) = myUnzip zs


-- myUnzip1 :: [(a, b)] -> ([a], [b])
-- myUnzip1 [] = []
-- myUnzip1 (x, y) : ys = (x , xs) : (y, ys)
--     where 

-- >>> myUnzip [(1,4), (2,5), (3, 6)]
-- ([1,2,3],[4,5,6])
--

myZip :: [a] -> [a] -> [(a, a)]
myZip [] [] = []
myZip _ [] = []
myZip [] _ = []
myZip (x : xs) (y : ys) = (x, y) : myZip xs ys

-- >>>myZip [1,2,3] [4,5,6]
-- [(1,4),(2,5),(3,6)]
--


-- >>>myZip [1,2,3] []
-- []
--

myZipWith f [] [] = []
myZipWith f (x : xs) (y : ys) = f x y : myZipWith f xs ys


-- >>> myZipWith (+) [1,2,3] [4,5,6]
-- [5,7,9]
--