在F#中拆分seq

栏目: ASP.NET · 发布时间: 7年前

内容简介：翻译自：https://stackoverflow.com/questions/6736464/split-seq-in-f

我应该拆分seq<a>到seq<seq<

a>>通过元素的属性.如果此属性等于给定值,则必须在该点处“拆分”.我怎么能在FSharp中做到这一点？

如果必须在该项目中进行拆分,则将“函数”传递给它返回bool应该不错.

样品：

输入顺序：seq：{1,2,3,4,1,5,6,7,1,9}

当它等于1时,它应该在每个项目上分开,因此结果应该是：

seq
{
seq{1,2,3,4}
seq{1,5,6,7}
seq{1,9}
}

您所做的只是分组 – 每次遇到值时都会创建一个新组.

let splitBy f input =
  let i = ref 0
  input 
  |> Seq.map  (fun x -> 
    if f x then incr i
    !i, x)
  |> Seq.groupBy fst
  |> Seq.map (fun (_, b) -> Seq.map snd b)

例

let items = seq [1;2;3;4;1;5;6;7;1;9]
items |> splitBy ((=) 1)

同样,更短,斯蒂芬的改进很好：

let splitBy f input =
  let i = ref 0
  input
  |> Seq.groupBy (fun x ->
    if f x then incr i
    !i)
  |> Seq.map snd

翻译自：https://stackoverflow.com/questions/6736464/split-seq-in-f

以上就是本文的全部内容，希望本文的内容对大家的学习或者工作能带来一定的帮助，也希望大家多多支持码农网

查看所有标签

猜你喜欢:

本站部分资源来源于网络，本站转载出于传递更多信息之目的，版权归原作者或者来源机构所有，如转载稿涉及版权问题，请联系我们。

码农书籍

Google成功的七堂课

罗耀宗 / 电子工业出版社 / 2005-7 / 28.00元

Google是全球使用人数最多的搜索引擎，在短短几年内，Google从斯坦福大学的实验室，茁壮成长为举世瞩目的IT业超级巨人，他们的成功绝非偶然，尤其是在网络泡沫破灭，行业一片萧条之际，它的崛起更为IT业带来一缕曙光。作者从趋势观察家的角度，以讲座的形式，向读者讲述Google成功的关键因素：破除因循守旧、不断打破常规，核心技术领先、做出了“更好的捕鼠器”，使得Google在搜索技术方面远远超越对......一起来看看《Google成功的七堂课》这本书的介绍吧!

码农工具

RGB HSV 转换

RGB HSV 互转工具

HEX CMYK 转换工具

HEX CMYK 互转工具