代码之家 › 专栏 › 技术社区 › Nils

F中的素因子#

f# algorithm

Nils · 技术社区 · 16 年前

我写了一个计算素数的函数。

let PrimeFactors x =
  let rec PrimeFactorsRecursive x div list =
     if x % div = 0 then PrimeFactorsRecursive (x/div) div list @ [div]
     elif div > int(System.Math.Sqrt(float(x))) then 
       if x > 1 then list @ [x]
       else list
     else PrimeFactorsRecursive x (div + 1) list
  PrimeFactorsRecursive x 2 []

有没有“更”实用的方法来编写这段代码?

3 回复 | 直到 16 年前

Yin Zhu 16 年前

代码中的主要问题是 @ 合并两个列表。合并两个列表需要线性时间,而不是固定时间。

:: 操作员如下所示:

let primeFactors x = 
    let rec fact x div list = 
        if x % div = 0 then
            fact (x/div) div (div::list)
        elif div > int(sqrt (float x)) then
            if x > 1 then x::list
            else list
        else
            fact x (div+1) list
    fact x 2 []

阿尔索 let 绑定值通常遵循camleStyle命名转换。

Stephen Swensen 16 年前

int(System.Math.Sqrt(float(x)))

你有

(x |> float |> sqrt |> int)

Gian 16 年前

您可能可以使用保护模式来减少if表达式嵌套。除此之外,在我看来,它是非常合理的惯用函数代码。

推荐文章

Thomas · 使类型别名在F中不可互换#

4 年前

sdgfsdh · 我该怎么说。使用异步转换函数进行收集?

8 年前

Soldalma · 我可以实例化包含顶级副作用值的类吗?

8 年前

matekus · F#-包含数字的字符串的自然排序

8 年前

Ayto Maximo · F#CSV-对于每一行,从列数据创建一个数组

8 年前

Chechy Levas · 在F#中使用免费单子是否意味着启动时间更长,指令有限?

8 年前

matekus · F#类型匹配-无法创建映射或匹配记录

8 年前

Rob Lyndon · 未找到F#ProvidedTypes文件

8 年前

red-swan · 如何将intro ML.Net演示翻译为F#?

8 年前

jkone27 · F#-在编译时从字符串生成简单的空类型

8 年前