• Subject: Re: Lua Benchmark
• From: Ken Rawlings <krawling@...>
• Date: Tue, 20 Jul 1999 16:58:20 -0500 (EST)

```   Since there seems to be quite a bit of interest in Lua benchmarks,
here's my results from a multi-language numeric benchmark I ran a
while back to get a general feel for the speed of several languages.

In each case nothing special was done for optimization, either in
the language or in the compiler settings. Take the benchmark with
a large grain of salt -- it's by no means comprehensive.

(PII300, NT4.0):

Language             Seconds
-------------------  -------
C [MSVC 5.0]         1.5
Java 1.2.1 (Classic) 1.2
Java 1.1.6           44.1
Lua 3.1              65.8
Perl 5.005           202.8
Python 1.5.2         91.2
TCL 8.1              205.6
TCL 8.0.5            392.9

_Ken

Here's the Lua code:
----
function pnpoly(npol, xp, yp, x, y)
local i, j, c
c = 0
i = 1
j = npol
while i <= npol do
if (yp[i] <= y and y < yp[j]) or (yp[j] <= y and y <  yp[i])
and (x < (xp[j] - xp[i]) * (y - yp[i]) / (yp[j] - yp[i])
+ xp[i]) then
c = not c
end
j = i
i = i + 1
end
return c
end

npol = 20
count = 0
xp = { 0.0,1.0,1.0,0.0,0.0,1.0,-.5,-1.0,-1.0,-2.0,
-2.5,-2.0,-1.5,-.5,1.0,1.0,0.0,-.5,-1.0,-.5 }
yp = { 0.0,0.0,1.0,1.0,2.0,3.0,2.0,3.0,0.0,-.5,
-1.0,-1.5,-2.0,-2.0,-1.5,-1.0,-.5,-1.0,-1.0,-.5}
i = 0
while i < 50000 do
if pnpoly(npol,xp,yp,0.5,0.5) then count = count + 1 end
if pnpoly(npol,xp,yp,0.5,1.5) then count = count + 1 end
if pnpoly(npol,xp,yp,-.5,1.5) then count = count + 1 end
if pnpoly(npol,xp,yp,0.75,2.25) then count = count + 1 end
if pnpoly(npol,xp,yp,0,2.01) then count = count + 1 end
if pnpoly(npol,xp,yp,-.5,2.5) then count = count + 1 end
if pnpoly(npol,xp,yp,-1.0,-.5) then count = count + 1 end
if pnpoly(npol,xp,yp,-1.5,.5) then count = count + 1 end
if pnpoly(npol,xp,yp,-2.25,-1.0) then count = count + 1 end
if pnpoly(npol,xp,yp,0.5,-.25) then count = count + 1 end
if pnpoly(npol,xp,yp,0.5,-1.25) then count = count + 1 end
if pnpoly(npol,xp,yp,-.5,-2.5) then count = count + 1 end
i = i + 1
end
print("count " .. count)
----

```