mirror of
https://github.com/Smaug123/pulsing-server
synced 2025-10-05 23:18:40 +00:00
20 lines
366 B
Plaintext
20 lines
366 B
Plaintext
open System.Net
|
|
open System.Diagnostics
|
|
|
|
use timer = new Stopwatch()
|
|
timer.Restart()
|
|
|
|
[
|
|
for i in 1..1000 do
|
|
yield
|
|
async {
|
|
let w = new WebClient()
|
|
return w.DownloadString("http://localhost:5000/")
|
|
}
|
|
]
|
|
|> Async.Parallel
|
|
|> Async.RunSynchronously
|
|
|
|
timer.Stop()
|
|
printfn "%+A" timer.ElapsedMilliseconds
|