OpenEuphoria

Re: Performance Benchmarks

• Posted by DerekParnell (admin) Mar 09, 2011
• 1433 views

Here are the Euphoria (v4) equivalents ...

-- CPU *************************************  
include std/math.e 
atom X 
atom Y 
atom sStartTime 
atom sEndTime 
  
sStartTime = time() 
printf(1,"%g\n", sStartTime ) 
Y = .5  
  for intCounter = 1 to 50000000 do --Main loop  
  Y = Y / 1.1234  
  Y = Y * 1.1234  
  X = arccos(Y)  
  X = arcsin(Y)  
  X = tan(Y)  
  X = cos(Y)  
  X = exp(Y)  
  X = log(Y)  
  X = sin(Y)  
  X = power(Y, 0.5)  
  X = tan(Y)  
end for 
sEndTime = time() 
printf(1,"%g\n", sEndTime ) 
printf(1,"%g\n", sEndTime - sStartTime ) 

-- I/O  *************************************  
integer intFF 
atom sStartTime 
atom sEndTime 
  
sStartTime = time() 
printf(1,"%g\n", sStartTime ) 
intFF = open("Text.Test", "w") 
for intCurr = 1 to 25000000 do 
  printf(intFF,"%d\n",intCurr) 
end for 
close(intFF) 
sEndTime = time() 
printf(1,"%g\n", sEndTime ) 
printf(1,"%g\n", sEndTime - sStartTime )