Показать сообщение отдельно
Старый 27.09.2012, 00:49   #56
ffinder
Дэвелопер
 
Аватар для ffinder
 
Регистрация: 10.09.2007
Сообщений: 1,442
Написано 793 полезных сообщений
(для 1,460 пользователей)
Ответ: Великая битва 4х языков программирования на простейшей задачке

вот еще один бенчмарк в копилку. язык F# (для .NET)
постарался товарищ boxxyfag
open System
open Microsoft.FSharp.Collections

let beforeAllocation = DateTime.Now
let yobaArray        = Array3D.zeroCreate 512 512 128
let afterAllocation  = DateTime.Now
let mutable i = 0
for n in 1..20 do 
    for x in 0..511 do 
    for y in 0..511 do 
    for z in 0..127 do 
        yobaArray.[x, y, z] <- i
        i <- i + 1
let afterLoop       = DateTime.Now
let totalLoopTime   = afterLoop - afterAllocation
let averageLoopTime = new TimeSpan(totalLoopTime.Ticks / 20L)
printfn "Allocation time: %A"   <| afterAllocation - beforeAllocation
printfn "Total loop time: %A"   <| totalLoopTime
printfn "Average loop time: %A" <| averageLoopTime 
Console.ReadLine()              |> ignore
результаты:
Microsoft (R) F# 2.0 Interactive build 4.0.40219.1
Windows 7 Pro 32
Amd turion rm-74 2,20 GHz

Allocation time: 00:00:00.0040002
Total loop time: 00:00:21.1218322
Average loop time: 00:00:01.0560916
(Offline)
 
Ответить с цитированием