Question

我正在寻找函数式编程语言中的zip / unzip等函数（例如Haskell，Scala）。

Input: zip [1,2,3] [9,8,7]
Output: [(1,9),(2,8),(3,7)]

解压缩：

Input: unzip [(1,2),(2,3),(3,4)]
Output: ([1,2,3],[2,3,4])

在R中，输入看起来像这样。压缩：

l1 <- list(1,2,3)
l2 <- list(9,8,7)
l <- Map(c, l1, l2)

解压缩：

tuple1 <- list(1,2)
tuple2 <- list(2,3)
tuple3 <- list(3,4)
l <- Map(c, tuple1, tuple2, tuple3)

R中是否有任何实现这些方法的内置解决方案/库？（FP函数往往有很多名称 - 搜索zip / unzip＆amp; R只给我压缩/解压缩文件的结果。）

Answer 1

purrr package试图提供大量的FP原语。 purrr的zip版本称为transpose()。

 L1 <- list(as.list(1:3),as.list(9:7))
 library(purrr)
 (L2 <- transpose(L1))
## List of 3
##  $ :List of 2
##   ..$ : int 1
##   ..$ : int 9
##  $ :List of 2
##   ..$ : int 2
##   ..$ : int 8
##  $ :List of 2
##   ..$ : int 3
##   ..$ : int 7
identical(transpose(L2),L1)  ## TRUE

transpose()也适用于您的第二个（解压缩）示例。

Answer 2

我不认为这正是你所追求的，但是如果它是相等的长度向量，你可以符合一个数组，然后在任一方向使用split：

l <- list(c(1, 9), c(2, 8), c(3, 7))

m <- do.call(rbind, l)

split(m, row(m))
split(m, col(m))

## > split(m, row(m))
## $`1`
## [1] 1 9
## 
## $`2`
## [1] 2 8
## 
## $`3`
## [1] 3 7


## > split(m, col(m))
## $`1`
## [1] 1 2 3
## 
## $`2`
## [1] 9 8 7

R中的zip / unzip函数

2 个答案: