测试 PSeq

原创 2012年03月27日 10:46:39

测试 PSeq

#light

#r @"C:\Program Files\FSharpPowerPack-2.0.0.0\bin\FSharp.PowerPack.Parallel.Seq.dll"
// 
// PSeq 在 Microsoft.FSharp.Collections 这个命名空间下
open Microsoft.FSharp.Collections

let nums = [|1..500000|]

let isPrime n =
    let rec check i =
        i > n/2 || (n % i <> 0 && check (i + 1))
    check 2

let finalDigitOfPrimes =
        nums
        |> Seq.filter isPrime
        |> Seq.groupBy (fun i -> i % 10)
        |> Seq.map (fun (k, vs) -> (k, Seq.length vs))
        |> Seq.toArray 


let finalDigitOfPrimesP =
        nums
        |> PSeq.filter isPrime
        |> PSeq.groupBy (fun i -> i % 10)
        |> PSeq.map (fun (k, vs) -> (k, Seq.length vs))
        |> PSeq.toArray 

==========

val finalDigitOfPrimes : (int * int) [] =
  [|(1, 10387); (2, 1); (3, 10382); (5, 1); (7, 10403); (9, 10365)|]


val finalDigitOfPrimesP : (int * int) array =
  [|(1, 10387); (9, 10365); (2, 1); (3, 10382); (5, 1); (7, 10403)|]

版权声明:本文为博主原创文章,未经博主允许不得转载。

globalmem linux驱动测试

  • 2017年12月14日 14:37
  • 24KB
  • 下载

【M3U8】测试地址及android播放器

/////////////////// http://www.cnblogs.com/over140/ //////////////// HLS协议---学习笔记----M3U8 ...

微软FFB飞行摇杆力反馈测试软件

  • 2017年12月11日 16:36
  • 49KB
  • 下载

Ansible(一):Ansible安装及测试

摘要本文主要内容是介绍Ansible的安装及测试,文章内容主要摘自Ansible的文档。背景公司近期开发分布式采集服务器,尽管当前测试仅由三台服务器组成,但是规划中会有近百台服务器一起工作。这就需要有...
  • alphags
  • alphags
  • 2016年11月23日 15:25
  • 2742

cec13 pso 标准测试函数

  • 2017年12月07日 11:29
  • 1.69MB
  • 下载

禅道测试管理工具

  • 2017年12月04日 23:35
  • 2.96MB
  • 下载

小白日记12:kali渗透测试之服务扫描(二)-SMB扫描

SMB扫描 Server Message Block 协议。与其他标准的TCP/IP协议不同,SMB协议是一种复杂的协议,因为随着Windows计算机的开发,越来越多的功能被加入到协议中去了,很难区分...

cesium terrain 测试数据

  • 2017年12月05日 00:19
  • 43KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:测试 PSeq
举报原因:
原因补充:

(最多只允许输入30个字)