我正在查找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