Download or view vectest.frink in plain text format
// Vector math timing test
size = million
a = new array[[size], {|x| random[1, billion]}]
b = new array[[size], {|x| random[1, billion]}]
println["Arrays allocated."]
sum1 = 0 s
sum2 = 0 s
for iter = 1 to 30
{
start1 = now[]
c = new array[size]
for i=0 to size-1
c@i = a@i * b@i
end1 = now[]
start2 = now[]
d = mul[a,b]
end2 = now[]
if c != d
println["Mismatch!"]
t1 = end1-start1
t2 = end2-start2
sum1 = sum1 + t1
sum2 = sum2 + t2
println["Iter: " + (t1 -> "ms") + "\tvec: " + (t2->"ms")]
}
println["Speedup is " + formatFix[sum1/sum2, 1, 4]]
Download or view vectest.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen, eliasen@mindspring.com