在F#中旋转或压缩序列
在F#中旋转或压缩序列
提问于 2012-10-07 14:12:18
假设我有一系列的序列，例如
{1, 2, 3}, {1, 2, 3}, {1, 2, 3}什么是最好的方法来旋转或压缩这个序列，所以我有，
{1, 1, 1}, {2, 2, 2}, {3, 3, 3}有没有一种可以理解的方式，不用操作底层的IEnumerator<_>类型？
为了清楚起见，这些是seq<seq<int>>对象。每个序列(内部和外部)可以有任意数量的项。
回答 4
Stack Overflow用户
回答已采纳
发布于 2012-10-07 18:33:36
如果你要寻找一个语义上是Seq的解决方案，你将不得不一直保持懒惰。
let zip seq = seq
|> Seq.collect(fun s -> s |> Seq.mapi(fun i e -> (i, e))) //wrap with index
|> Seq.groupBy(fst) //group by index
|> Seq.map(fun (i, s) -> s |> Seq.map snd) //unwrap测试：
let seq = Enumerable.Repeat((seq [1; 2; 3]), 3) //don't want to while(true) yield. bleh.
printfn "%A" (zip seq)输出：
seq [seq [1; 1; 1]; seq [2; 2; 2]; seq [3; 3; 3]]Stack Overflow用户
发布于 2012-10-07 14:40:34
这看起来很不雅观，但它得到了正确的答案：
(seq [(1, 2, 3); (1, 2, 3); (1, 2, 3);])
|> Seq.fold (fun (sa,sb,sc) (a,b,c) ->a::sa,b::sb,c::sc) ([],[],[])
|> fun (a,b,c) -> a::b::c::[]Stack Overflow用户
发布于 2012-10-07 15:21:24
看起来像是矩阵转置。
let data =
seq [
seq [1; 2; 3]
seq [1; 2; 3]
seq [1; 2; 3]
]
let rec transpose = function
| (_::_)::_ as M -> List.map List.head M :: transpose (List.map List.tail M)
| _ -> []
// I don't claim it is very elegant, but no doubt it is readable
let result =
data
|> List.ofSeq
|> List.map List.ofSeq
|> transpose
|> Seq.ofList
|> Seq.map Seq.ofList或者，您可以对seq采用相同的方法，这要归功于this answer提供的优雅的活动模式：
let (|SeqEmpty|SeqCons|) (xs: 'a seq) =
if Seq.isEmpty xs then SeqEmpty
else SeqCons(Seq.head xs, Seq.skip 1 xs)
let rec transposeSeq = function
| SeqCons(SeqCons(_,_),_) as M ->
Seq.append
(Seq.singleton (Seq.map Seq.head M))
(transposeSeq (Seq.map (Seq.skip 1) M))
| _ -> Seq.empty
let resultSeq = data |> transposeSeq另请参阅this answer以获取技术细节和两个参考：PowerPack的Microsoft.FSharp.Math.Matrix和涉及可变数据的另一种方法。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/12766552
复制相关文章
相似问题
腾讯云开发者
