luau/bench/micro_tests/test_MethodCalls.lua
Vyacheslav Egorov ce1800746b
Fix 'require' in benchmarks to work with new relative system (#1120)
Old style require is now called with `pcall` to support comparing
against Lua.
New style require is now a third option.

Edit: this will be a temporary solution until the 'paths' support in
.luaurc is fixed.
2023-12-02 14:20:54 -08:00

100 lines
No EOL
2.5 KiB
Lua

local bench = script and require(script.Parent.bench_support) or pcall(require, "bench_support") or require("../bench_support")
function test()
-- $Id: methcall.lua,v 1.2 2004-06-12 16:19:43 bfulgham Exp $
-- http://shootout.alioth.debian.org
-- contributed by Roberto Ierusalimschy
--------------------------------------------------------------
-- Toggle class
--------------------------------------------------------------
Toggle = {}
function Toggle:value ()
return self.state
end
function Toggle:activate ()
self.state = not self.state
return self
end
function Toggle:new (start_state)
local o = {state = start_state}
self.__index =self
setmetatable(o, self)
return o
end
--------------------------------------------------------------
-- NthToggle class
--------------------------------------------------------------
NthToggle = Toggle:new()
function NthToggle:activate ()
self.counter = self.counter + 1
if self.counter >= self.count_max then
Toggle.activate(self)
self.counter = 0
end
return self
end
function NthToggle:new (start_state, max_counter)
local o = Toggle.new(self, start_state)
o.count_max = max_counter
o.counter = 0
return o
end
-----------------------------------------------------------
-- main
-----------------------------------------------------------
function main ()
local start = os.clock()
local N = 30000
local val = 1
local toggle = Toggle:new(val)
for i=1,N do
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
val = toggle:activate():value()
end
print(val and "true" or "false")
val = 1
local ntoggle = NthToggle:new(val, 3)
for i=1,N do
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
val = ntoggle:activate():value()
end
print(val and "true" or "false")
return os.clock() - start
end
return main()
end
bench.runCode(test, "MethodCalls")