我认为 F# 应该比 C# 更快，我制作了一个可能很糟糕的基准测试工具，C# 得到了 16239 毫秒，而 F# 在 49583 毫秒时表现更差。有人能解释一下这是为什么吗？我正在考虑离开 F# 并回到 C#。是否可以使用更快的代码在 F# 中获得相同的结果？
这是我使用的代码，我尽可能让它相等。
F#(49583 毫秒)
open System
open System.Diagnostics
let stopwatch = new Stopwatch()
stopwatch.Start()
let mutable isPrime = true
for i in 2 .. 100000 do
for j in 2 .. i do
if i <> j && i % j = 0 then
isPrime <- false
if isPrime then
printfn "%i" i
isPrime <- true
stopwatch.Stop()
printfn "Elapsed time: %ims" stopwatch.ElapsedMilliseconds
Console.ReadKey() |> ignore
using System;
using System.Diagnostics;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
Stopwatch stopwatch = new Stopwatch();
stopwatch.Start();
bool isPrime = true;
for (int i = 2; i <= 100000; i++)
{
for (int j = 2; j <= i; j++)
{
if (i != j && i % j == 0)
{
isPrime = false;
break;
}
}
if (isPrime)
{
Console.WriteLine(i);
}
isPrime = true;
}
stopwatch.Stop();
Console.WriteLine("Elapsed time: " + stopwatch.ElapsedMilliseconds + "ms");
Console.ReadKey();
}
}
}
最佳答案
F# 程序较慢，因为您的程序不等效。你的 C# 代码有一个 break内部声明 for循环，但您的 F# 程序没有。因此，对于每个偶数，C# 代码将在检查可被 2 整除后停止，而 F# 程序将检查从 2 到 i 的每个数字。 .由于完成的工作有如此大的差异，实际上令人惊讶的是 F# 代码仅慢了三倍!
现在，F# 故意没有 break语句，因此您无法将 C# 代码直接转换为 F#。但是您可以使用包含短路逻辑的函数。例如，在评论中，Aaron M. Eshbach 提出了以下建议:
{2 .. 100000}
|> Seq.filter (fun i -> {2 .. i-1} |> Seq.forall (fun j -> i % j <> 0))
|> Seq.iter (printfn "%i")
Seq.forall ，它确实做了短路:它会根据条件检查序列中的每个输入，如果条件返回 false ，它将停止并且不再进行检查。 (因为 Seq 模块中的函数是 lazy 并且不会做比获得输出绝对需要的更多的工作)。这就像拥有一个 break在你的 C# 代码中。{2 .. 100000}
|> Seq.filter (fun i -> (some expression involving i))
Seq.filter部分，以及涉及i的内在表达. Seq.filter part 获取序列并对其进行过滤:对于序列中的每个项目，将其命名为 i并评估表达式。如果该表达式的计算结果为 true ，然后保留该项目并将其传递到链中的下一步。如果表达式是 false ，然后扔掉那个东西。i 的表达式是:{2 .. i-1} |> Seq.forall (fun j -> i % j <> 0)
i 的惰性序列。减一，包括在内。 (或者你可以把它想象成从 2 开始直到 i ，但不包括 i )。然后检查该序列的每个项目是否满足特定条件(即 Seq.forall 函数)。并且，作为 Seq.forall 的实现细节，因为它很懒惰并且没有做比绝对必须做的更多的工作，所以在它找到 false 的那一刻结果它将停止并且不再通过输入序列。 (因为一旦你找到了一个反例，forall 函数就不可能再返回真了，所以一旦知道它的结果它就会停止。)以及在 Seq.forall 中检查的表达式是什么？ ?它是 fun j -> i % j <> 0 .所以j是内部循环变量，i是外部变量(在 Seq.filter 部分分配的变量)，逻辑与您的 C# 循环相同。Seq.filter 中这里。所以如果Seq.forall返回真，然后 Seq.filter将保留 i 的值.但如果 Seq.forall返回 false，然后 Seq.filter将丢弃 i 的这个值从通过到下一步。|> Seq.iter (printfn "%i")
for number in inputSoFar do
printfn "%i" number
(printfn "%i")如果您不熟悉 F#， call 对您来说可能看起来不寻常。这是currying ，这是一个非常有用的概念，习惯它很重要。所以花点时间思考一下:在F#中，下面两行代码是完全等价的:(fun y -> someFunctionCall x y)
(someFunctionCall x)
fun item -> printfn "%i" item可以随时替换为 printfn "%i .和 Seq.iter相当于 for环形:inputSoFar |> Seq.iter (someFunctionCall x)
for item in inputSoFar do
someFunctionCall x item
break其中的声明。
关于c# - 为什么 F# 比 C# 慢这么多？ (质数基准)，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/51482302/
类classAprivatedeffooputs:fooendpublicdefbarputs:barendprivatedefzimputs:zimendprotecteddefdibputs:dibendendA的实例a=A.new测试a.foorescueputs:faila.barrescueputs:faila.zimrescueputs:faila.dibrescueputs:faila.gazrescueputs:fail测试输出failbarfailfailfail.发送测试[:foo,:bar,:zim,:dib,:gaz].each{|m|a.send(m)resc
我有一个模型:classItem项目有一个属性“商店”基于存储的值，我希望Item对象对特定方法具有不同的行为。Rails中是否有针对此的通用设计模式？如果方法中没有大的if-else语句，这是如何干净利落地完成的？ 最佳答案 通常通过Single-TableInheritance. 关于ruby-on-rails-Rails-子类化模型的设计模式是什么？，我们在StackOverflow上找到一个类似的问题： https://stackoverflow.co
我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案 他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%
我主要使用Ruby来执行此操作，但到目前为止我的攻击计划如下:使用gemsrdf、rdf-rdfa和rdf-microdata或mida来解析给定任何URI的数据。我认为最好映射到像schema.org这样的统一模式，例如使用这个yaml文件，它试图描述数据词汇表和opengraph到schema.org之间的转换:#SchemaXtoschema.orgconversion#data-vocabularyDV:name:namestreet-address:streetAddressregion:addressRegionlocality:addressLocalityphoto:i
为什么4.1%2返回0.0999999999999996？但是4.2%2==0.2。 最佳答案 参见此处:WhatEveryProgrammerShouldKnowAboutFloating-PointArithmetic实数是无限的。计算机使用的位数有限(今天是32位、64位)。因此计算机进行的浮点运算不能代表所有的实数。0.1是这些数字之一。请注意，这不是与Ruby相关的问题，而是与所有编程语言相关的问题，因为它来自计算机表示实数的方式。 关于ruby-为什么4.1%2使用Ruby返
它不等于主线程的binding，这个toplevel作用域是什么？此作用域与主线程中的binding有何不同？>ruby-e'putsTOPLEVEL_BINDING===binding'false 最佳答案 事实是，TOPLEVEL_BINDING始终引用Binding的预定义全局实例，而Kernel#binding创建的新实例>Binding每次封装当前执行上下文。在顶层，它们都包含相同的绑定(bind)，但它们不是同一个对象，您无法使用==或===测试它们的绑定(bind)相等性。putsTOPLEVEL_BINDINGput
我可以得到Infinity和NaNn=9.0/0#=>Infinityn.class#=>Floatm=0/0.0#=>NaNm.class#=>Float但是当我想直接访问Infinity或NaN时:Infinity#=>uninitializedconstantInfinity(NameError)NaN#=>uninitializedconstantNaN(NameError)什么是Infinity和NaN？它们是对象、关键字还是其他东西？ 最佳答案 您看到打印为Infinity和NaN的只是Float类的两个特殊实例的字符串
如果您尝试在Ruby中的nil对象上调用方法，则会出现NoMethodError异常并显示消息:"undefinedmethod‘...’fornil:NilClass"然而，有一个tryRails中的方法，如果它被发送到一个nil对象，它只返回nil:require'rubygems'require'active_support/all'nil.try(:nonexisting_method)#noNoMethodErrorexceptionanymore那么try如何在内部工作以防止该异常？ 最佳答案 像Ruby中的所有其他对象
关闭。这个问题需要detailsorclarity.它目前不接受答案。想改进这个问题吗？通过editingthispost添加细节并澄清问题.关闭8年前。Improvethisquestion为什么SecureRandom.uuid创建一个唯一的字符串？SecureRandom.uuid#=>"35cb4e30-54e1-49f9-b5ce-4134799eb2c0"SecureRandom.uuid方法创建的字符串从不重复？
我刚刚被困在这个问题上一段时间了。以这个基地为例:moduleTopclassTestendmoduleFooendend稍后，我可以通过这样做在Foo中定义扩展Test的类:moduleTopmoduleFooclassSomeTest但是，如果我尝试通过使用::指定模块来最小化缩进:moduleTop::FooclassFailure这失败了:NameError:uninitializedconstantTop::Foo::Test这是一个错误，还是仅仅是Ruby解析变量名的方式的逻辑结果？ 最佳答案 Isthisabug,or