एफ #

Question

के लिए एक timeit समारोह मैं के लिए

let rec fib x = 
     match x with 
     | 0 | 1 -> 1 
     | n -> fib (n-1) + fib (n-2) 

सा एफ # के लिए

let matrixtest() = 
    let x = vector[1.;2.;4.] 
    let y = matrix[[1.;2.;4.;];[3.;4.;9.;]] 
    printfn "%A" (y * x) 
    () 

लेकिन नहीं की तरह

let timeit (x:'a->'b) = 
    let start = System.DateTime.Now 
    x 
    let duration = System.DateTime.Now - start 
    printfn "time usage = %A" duration.Milliseconds 
    () 

कुछ यह काम करता है लिखने के लिए कोशिश कर रहा हूँ स्थिर टाइप किए हुए है।

कोई विचार? धन्यवाद।

Answer 1

यहां तक ​​कि मैट्रिक्स मामले में आप एक मूल्य के लिए समारोह आवेदन करना होगा। इस प्रयास करें:

let timeit f v = 
    let start = System.DateTime.Now 
    let result = f v 
    let duration = System.DateTime.Now - start 
    printfn "time usage = %A" duration.Milliseconds 
    result 

Aequitarum Custos StopWatch वर्ग का उपयोग कर के बारे में सही है, हालांकि।

Answer 2

System.Diagnostics.Stopwatch उपयोग

बहुत अधिक समय में सटीक।

यह माना जाता है कि आपको 0 सेकंड का परिणाम मिल रहा है, जो डेटटाइम नहीं है.अब काम नहीं कर रहा है, यह केवल खराब सटीकता है।

http://msdn.microsoft.com/en-us/library/system.diagnostics.stopwatch.aspx

Answer 3

यह एक साथ

let timeit f v = 
    let watch = new System.Diagnostics.Stopwatch() 
    watch.Start() 
    let res = f v 
    watch.Stop() 
    printfn "Needed %f ms" (watch.Elapsed.TotalMilliseconds) 
    res 

Answer 4

लाना एफ # में कोड का परीक्षण जब इंटरैक्टिव, आप कोड के प्रत्येक टुकड़े आप को भेजें समय पर #time निर्देश उपयोग कर सकते हैं/एफ # इंटरैक्टिव में दर्ज करें। उदाहरण:

> #time;; 

--> Timing now on 

> let slowstring = List.fold (+) "" [for i in 1..10000 -> string i];; 
Real: 00:00:00.544, CPU: 00:00:00.546, GC gen0: 464, gen1: 37, gen2: 0 

val slowstring : string = 
    "1234567891011121314151617181920212223242526272829303132333435"+[38833 chars] 

> let quickstring = String.concat "" [for i in 1..10000 -> string i];; 
Real: 00:00:00.008, CPU: 00:00:00.015, GC gen0: 0, gen1: 0, gen2: 0 

val quickstring : string = 
    "1234567891011121314151617181920212223242526272829303132333435"+[38833 chars] 

>