我正在查找this article on F# optimizations,并对提到Tasks.Future.Create
的行感到好奇。它似乎在未来创造了一项任务,似乎遵循Futures and Promises模式。在其他一些地方也提到了同样的方法,如在this thread on benchmarking F#, Java, C#中,它也用于F#代码。什么/哪里是Tasks.Future.Create和它的等价物是什么?
我在想,上面提到的F#代码,复制在这里以供参考,如果链接死了,工作方式与Tasks.Task<T>
类似,或者我应该使用不同的线程原语?
open System.Threading
let inline sort cmp (a: _ array) =
let inline swap i j =
let t = a.[i]
a.[i] <- a.[j]
a.[j] <- t
let rec qsort l u =
if l < u then
swap l ((l + u)/2)
let mutable m = l
for i=l+1 to u do
if cmp a.[i] a.[l] < 0 then
m <- m + 1
swap m i
swap l m
if u-l > 1000 then
let m = m
let f = Tasks.Future.Create(fun() -> qsort l (m-1))
qsort (m+1) u
f.Value
else
qsort l (m-1)
qsort (m+1) u
qsort 0 (a.Length-1)
let inline cmp (str: _ array) i j =
let rec cmp i j =
if i=str.Length then 1 else
if j=str.Length then -1 else
let c = compare str.[i] str.[j] in
if c<>0 then c else
cmp (i+1) (j+1)
cmp i j
let bwt (str: byte array) =
let n = str.Length
let a = Array.init n (fun i -> i)
sort (fun i j -> cmp str i j) a
Array.init n (fun i -> str.[(a.[i] + n - 1) % n])
注意:这是我的猜测,这是TPL预览版中的一种方法。
我认为你的猜测是点亮的。它看起来像你想'Task.Factory.StartNew'和'Task.Result'(而不是'Value')。 – Daniel
@丹尼尔:看起来很可能,感谢您查找正确的电话。我会试验。 – Abel