mirror of
https://github.com/ilyakooo0/luau.git
synced 2024-11-20 11:33:48 +03:00
.
This commit is contained in:
parent
025791c294
commit
d74d8772ab
@ -63,7 +63,7 @@ if not T then
|
||||
local max = 0x0
|
||||
showmem=function ()
|
||||
local m = (collectgarbage("\u{63}\u{6f}\u{75}\u{6e}\u{74}") * 0x400)
|
||||
max=((((m > max)) and m) or max)
|
||||
max=(((m > max) and m) or max)
|
||||
print(format("\u{20}\u{20}\u{20}\u{20}\u{2d}\u{2d}\u{2d}\u{2d}\u{20}\u{74}\u{6f}\u{74}\u{61}\u{6c}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}\u{3a}\u{20}\u{25}\u{73}\u{2c}\u{20}\u{6d}\u{61}\u{78}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}\u{3a}\u{20}\u{25}\u{73}\u{20}\u{2d}\u{2d}\u{2d}\u{2d}\u{a}",F(m),F(max)))
|
||||
end
|
||||
Cstacklevel=function ()
|
||||
@ -193,9 +193,9 @@ walltime=difftime(time(),walltime)
|
||||
print(format("\u{a}\u{a}\u{74}\u{6f}\u{74}\u{61}\u{6c}\u{20}\u{74}\u{69}\u{6d}\u{65}\u{3a}\u{20}\u{25}\u{2e}\u{32}\u{66}\u{73}\u{20}\u{28}\u{77}\u{61}\u{6c}\u{6c}\u{20}\u{74}\u{69}\u{6d}\u{65}\u{3a}\u{20}\u{25}\u{67}\u{73}\u{29}\u{a}",clocktime,walltime))
|
||||
if not usertests then
|
||||
lasttime=(lasttime or clocktime)
|
||||
local diff = (((clocktime - lasttime)) / lasttime)
|
||||
local diff = ((clocktime - lasttime) / lasttime)
|
||||
local tolerance = 0.05
|
||||
if (((diff >= tolerance) or (diff <= - tolerance))) then
|
||||
if ((diff >= tolerance) or (diff <= - tolerance)) then
|
||||
warn(format("\u{23}\u{74}\u{69}\u{6d}\u{65}\u{20}\u{64}\u{69}\u{66}\u{66}\u{65}\u{72}\u{65}\u{6e}\u{63}\u{65}\u{20}\u{66}\u{72}\u{6f}\u{6d}\u{20}\u{70}\u{72}\u{65}\u{76}\u{69}\u{6f}\u{75}\u{73}\u{20}\u{74}\u{65}\u{73}\u{74}\u{3a}\u{20}\u{25}\u{2b}\u{2e}\u{31}\u{66}\u{25}\u{25}",(diff * 0x64)))
|
||||
end
|
||||
assert(open(fname,"\u{77}")):write(clocktime):close()
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
return
|
||||
end
|
||||
local debug = require("\u{64}\u{65}\u{62}\u{75}\u{67}")
|
||||
@ -7,7 +7,7 @@ local pack = table.pack
|
||||
local MEMERRMSG = "\u{6e}\u{6f}\u{74}\u{20}\u{65}\u{6e}\u{6f}\u{75}\u{67}\u{68}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}"
|
||||
local function tcheck
|
||||
(t1,t2)
|
||||
assert((t1.n == (((t2.n or # t2)) + 0x1)))
|
||||
assert((t1.n == ((t2.n or # t2) + 0x1)))
|
||||
for i = 0x2, t1.n
|
||||
do
|
||||
assert((t1[i] == t2[(i - 0x1)]))
|
||||
@ -142,7 +142,7 @@ a,b,c=setmetatable({0x4},mt),setmetatable({0x8},mt),setmetatable({- 0x3},mt)
|
||||
local x,y,z = T.testC("\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{2b}\u{3b}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{32}",0xa,a,b)
|
||||
assert((((x == 0xa) and (y[0x1] == 0xc)) and (z == nil)))
|
||||
assert((T.testC("\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{25}\u{3b}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{31}",a,c)[0x1] == (0x4 % - 0x3)))
|
||||
assert((T.testC("\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{5f}\u{3b}\u{20}\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{2b}\u{3b}\u{20}\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{25}\u{3b}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{31}",b,a,c)[0x1] == (0x8 % ((0x4 + ((- 0x3) * 0x2))))))
|
||||
assert((T.testC("\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{5f}\u{3b}\u{20}\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{2b}\u{3b}\u{20}\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{25}\u{3b}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{31}",b,a,c)[0x1] == (0x8 % (0x4 + ((- 0x3) * 0x2)))))
|
||||
checkerr("\u{64}\u{69}\u{76}\u{69}\u{64}\u{65}\u{20}\u{62}\u{79}\u{20}\u{7a}\u{65}\u{72}\u{6f}",T.testC,"\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{5c}",0xa,0x0)
|
||||
checkerr("\u{25}\u{25}\u{30}",T.testC,"\u{61}\u{72}\u{69}\u{74}\u{68}\u{20}\u{25}",0xa,0x0)
|
||||
assert(T.testC("\u{63}\u{6f}\u{6d}\u{70}\u{61}\u{72}\u{65}\u{20}\u{4c}\u{54}\u{20}\u{32}\u{20}\u{35}\u{2c}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{31}",0x3,0x2,0x2,0x4,0x2,0x2))
|
||||
@ -219,7 +219,7 @@ n=(n or 0x2)
|
||||
local prog = "\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{6e}\u{75}\u{6d}\u{62}\u{65}\u{72}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{63}\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{75}\u{73}\u{65}\u{72}\u{64}\u{61}\u{74}\u{61}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{6e}\u{69}\u{6c}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{69}\u{73}\u{6e}\u{75}\u{6c}\u{6c}\u{20}\u{25}\u{64}\u{3b}\u{a}\u{20}\u{20}\u{20}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{38}\u{a}\u{20}\u{20}"
|
||||
prog=string.format(prog,n,n,n,n,n,n,n,n)
|
||||
local a,b,c,d,e,f,g,h = T.testC(prog,x)
|
||||
return (((((((B(a) + B(b)) + B(c)) + B(d)) + B(e)) + B(f)) + B(g)) + ((0x64 * B(h))))
|
||||
return (((((((B(a) + B(b)) + B(c)) + B(d)) + B(e)) + B(f)) + B(g)) + (0x64 * B(h)))
|
||||
end
|
||||
assert((count(0x3) == 0x2))
|
||||
assert((count("\u{61}\u{6c}\u{6f}") == 0x1))
|
||||
@ -303,17 +303,17 @@ collectgarbage("\u{72}\u{65}\u{73}\u{74}\u{61}\u{72}\u{74}")
|
||||
print("\u{2b}")
|
||||
end
|
||||
local lim = ((_soft and 0x1f4) or 0x2ee0)
|
||||
local prog = {("\u{63}\u{68}\u{65}\u{63}\u{6b}\u{73}\u{74}\u{61}\u{63}\u{6b}\u{20}" .. ((((lim * 0x2) + 0x64)) .. "\u{6d}\u{73}\u{67}")),"\u{6e}\u{65}\u{77}\u{74}\u{61}\u{62}\u{6c}\u{65}"}
|
||||
local prog = {("\u{63}\u{68}\u{65}\u{63}\u{6b}\u{73}\u{74}\u{61}\u{63}\u{6b}\u{20}" .. (((lim * 0x2) + 0x64) .. "\u{6d}\u{73}\u{67}")),"\u{6e}\u{65}\u{77}\u{74}\u{61}\u{62}\u{6c}\u{65}"}
|
||||
for i = 0x1, lim
|
||||
do
|
||||
prog[# (prog + 0x1)]=("\u{70}\u{75}\u{73}\u{68}\u{6e}\u{75}\u{6d}\u{20}" .. i)
|
||||
prog[# (prog + 0x1)]=("\u{70}\u{75}\u{73}\u{68}\u{6e}\u{75}\u{6d}\u{20}" .. (i * 0xa))
|
||||
end
|
||||
prog[# (prog + 0x1)]="\u{72}\u{61}\u{77}\u{67}\u{65}\u{74}\u{69}\u{20}\u{52}\u{20}\u{32}"
|
||||
prog[# (prog + 0x1)]=("\u{69}\u{6e}\u{73}\u{65}\u{72}\u{74}\u{20}" .. - (((0x2 * lim) + 0x2)))
|
||||
prog[# (prog + 0x1)]=("\u{69}\u{6e}\u{73}\u{65}\u{72}\u{74}\u{20}" .. - ((0x2 * lim) + 0x2))
|
||||
for i = 0x1, lim
|
||||
do
|
||||
prog[# (prog + 0x1)]=("\u{73}\u{65}\u{74}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}" .. - (((0x2 * (((lim - i) + 0x1))) + 0x1)))
|
||||
prog[# (prog + 0x1)]=("\u{73}\u{65}\u{74}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}" .. - ((0x2 * ((lim - i) + 0x1)) + 0x1))
|
||||
end
|
||||
prog[# (prog + 0x1)]="\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{32}"
|
||||
prog=table.concat(prog,"\u{3b}")
|
||||
@ -1029,7 +1029,7 @@ testamem("\u{67}\u{73}\u{75}\u{62}",function ()
|
||||
local a,b = string.gsub("\u{61}\u{6c}\u{6f}\u{20}\u{61}\u{6c}\u{6f}","\u{28}\u{61}\u{29}",function (x)
|
||||
return (x .. "\u{62}")
|
||||
end)
|
||||
return ((a == "\u{61}\u{62}\u{6c}\u{6f}\u{20}\u{61}\u{62}\u{6c}\u{6f}"))
|
||||
return (a == "\u{61}\u{62}\u{6c}\u{6f}\u{20}\u{61}\u{62}\u{6c}\u{6f}")
|
||||
end)
|
||||
testamem("\u{64}\u{75}\u{6d}\u{70}\u{2f}\u{75}\u{6e}\u{64}\u{75}\u{6d}\u{70}",function ()
|
||||
local a = load(testprog)
|
||||
@ -1055,11 +1055,11 @@ a[i]=i
|
||||
;
|
||||
a[(i .. "\u{61}")]={}
|
||||
end
|
||||
return (((type(a[(lim .. "\u{61}")]) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and (a[lim] == lim)))
|
||||
return ((type(a[(lim .. "\u{61}")]) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and (a[lim] == lim))
|
||||
end)
|
||||
testamem("\u{63}\u{6f}\u{6e}\u{73}\u{74}\u{72}\u{75}\u{63}\u{74}\u{6f}\u{72}\u{73}",function ()
|
||||
local a = {0xa,0x14,0x1e,0x28,0x32,["\u{61}"] = 0x1,["\u{62}"] = 0x2,["\u{63}"] = 0x3,["\u{64}"] = 0x4,["\u{65}"] = 0x5}
|
||||
return (((type(a) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and (a.e == 0x5)))
|
||||
return ((type(a) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and (a.e == 0x5))
|
||||
end)
|
||||
local a = 0x1
|
||||
local close = nil
|
||||
@ -1069,7 +1069,7 @@ return function (x)
|
||||
return (b + x)
|
||||
end
|
||||
end
|
||||
return ((close(0x2)(0x4) == 0x6))
|
||||
return (close(0x2)(0x4) == 0x6)
|
||||
end)
|
||||
testamem("\u{75}\u{73}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{72}\u{6f}\u{75}\u{74}\u{69}\u{6e}\u{65}\u{73}",function ()
|
||||
local a = coroutine.wrap(function ()
|
||||
|
||||
@ -56,7 +56,7 @@ return (DIR .. x)
|
||||
end
|
||||
local function DC
|
||||
(x)
|
||||
local ext = ((((dirsep == "\u{5c}")) and "\u{2e}\u{64}\u{6c}\u{6c}") or "\u{2e}\u{73}\u{6f}")
|
||||
local ext = (((dirsep == "\u{5c}") and "\u{2e}\u{64}\u{6c}\u{6c}") or "\u{2e}\u{73}\u{6f}")
|
||||
return D((x .. ext))
|
||||
end
|
||||
local function createfiles
|
||||
@ -184,7 +184,7 @@ if not st then
|
||||
local f,err,when = package.loadlib("\u{64}\u{6f}\u{6e}\u{6f}\u{74}\u{65}\u{78}\u{69}\u{73}\u{74}",(p .. "\u{78}\u{75}\u{78}\u{75}"))
|
||||
assert(not ((f and (type(err) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}")) and (when == "\u{61}\u{62}\u{73}\u{65}\u{6e}\u{74}")))
|
||||
;
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{6c}\u{6f}\u{61}\u{64}\u{20}\u{64}\u{79}\u{6e}\u{61}\u{6d}\u{69}\u{63}\u{20}\u{6c}\u{69}\u{62}\u{72}\u{61}\u{72}\u{79}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{6c}\u{6f}\u{61}\u{64}\u{20}\u{64}\u{79}\u{6e}\u{61}\u{6d}\u{69}\u{63}\u{20}\u{6c}\u{69}\u{62}\u{72}\u{61}\u{72}\u{79}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
print(err,when)
|
||||
else
|
||||
local f = assert(package.loadlib(DC("\u{6c}\u{69}\u{62}\u{31}"),(p .. "\u{6f}\u{6e}\u{65}\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}")))
|
||||
@ -264,7 +264,7 @@ assert((((a == 0x0) and (b == 0x5)) and (c == 0x1)))
|
||||
a,b,c=0x0,0x5,f(0x0)
|
||||
assert((((a == 0x0) and (b == 0x5)) and (c == nil)))
|
||||
end
|
||||
local a,b,c,d = (0x1 and nil),(0x1 or nil),((0x1 and ((nil or 0x1)))),0x6
|
||||
local a,b,c,d = (0x1 and nil),(0x1 or nil),(0x1 and (nil or 0x1)),0x6
|
||||
assert(not (((a and b) and c) and (d == 0x6)))
|
||||
d=0x14
|
||||
a,b,c,d=f()
|
||||
@ -272,24 +272,24 @@ assert(((((a == 0xa) and (b == 0xb)) and (c == 0xc)) and (d == nil)))
|
||||
a,b=f(),0x1,0x2,0x3,f()
|
||||
assert(((a == 0xa) and (b == 0x1)))
|
||||
assert((((a < b) == false) and ((a > b) == true)))
|
||||
assert((((0xa and 0x2)) == 0x2))
|
||||
assert((((0xa or 0x2)) == 0xa))
|
||||
assert((((0xa or assert(nil))) == 0xa))
|
||||
assert(not ((nil and assert(nil))))
|
||||
assert((((nil or "\u{61}\u{6c}\u{6f}")) == "\u{61}\u{6c}\u{6f}"))
|
||||
assert((((nil and 0xa)) == nil))
|
||||
assert((((false and 0xa)) == false))
|
||||
assert((((true or 0xa)) == true))
|
||||
assert((((false or 0xa)) == 0xa))
|
||||
assert(((0xa and 0x2) == 0x2))
|
||||
assert(((0xa or 0x2) == 0xa))
|
||||
assert(((0xa or assert(nil)) == 0xa))
|
||||
assert(not (nil and assert(nil)))
|
||||
assert(((nil or "\u{61}\u{6c}\u{6f}") == "\u{61}\u{6c}\u{6f}"))
|
||||
assert(((nil and 0xa) == nil))
|
||||
assert(((false and 0xa) == false))
|
||||
assert(((true or 0xa) == true))
|
||||
assert(((false or 0xa) == 0xa))
|
||||
assert((false ~= nil))
|
||||
assert((nil ~= false))
|
||||
assert(not (nil == true))
|
||||
assert(not not (nil == false))
|
||||
assert(not not (0x1 == true))
|
||||
assert(not not (a == true))
|
||||
assert(not not (((0x6 or nil)) == true))
|
||||
assert(not not (((nil and 0x38)) == false))
|
||||
assert(not not (((nil and true)) == false))
|
||||
assert(not not ((0x6 or nil) == true))
|
||||
assert(not not ((nil and 0x38) == false))
|
||||
assert(not not ((nil and true) == false))
|
||||
assert(not (0xa == false))
|
||||
assert(not ({} == false))
|
||||
assert(not (0.5 == false))
|
||||
@ -357,7 +357,7 @@ local st,msg = pcall(foo)
|
||||
assert(not (st and string.find(msg,"\u{6e}\u{75}\u{6d}\u{62}\u{65}\u{72}")))
|
||||
end
|
||||
local maxint = math.maxinteger
|
||||
while ((maxint ~= ((maxint + 0.0))) or (((maxint - 0x1)) ~= ((maxint - 1.0)))) do
|
||||
while ((maxint ~= (maxint + 0.0)) or ((maxint - 0x1) ~= (maxint - 1.0))) do
|
||||
maxint=(maxint // 0x2)
|
||||
end
|
||||
local maxintF = (maxint + 0.0)
|
||||
|
||||
@ -2,7 +2,7 @@ print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{62}\u{69}\u{74}\u{77}\
|
||||
require("\u{62}\u{77}\u{63}\u{6f}\u{65}\u{72}\u{63}\u{69}\u{6f}\u{6e}")
|
||||
local numbits = (string.packsize("\u{6a}") * 0x8)
|
||||
assert(~ (0x0 == - 0x1))
|
||||
assert((((0x1 << ((numbits - 0x1)))) == math.mininteger))
|
||||
assert(((0x1 << (numbits - 0x1)) == math.mininteger))
|
||||
local a,b,c,d
|
||||
a=0xffffffffffffffff
|
||||
assert((a == - (0x1 and (a & - ((0x1 == a) and ((a & 0x23) == 0x23))))))
|
||||
@ -51,15 +51,15 @@ assert((load(code)() == 0x0))
|
||||
local code = string.format("\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{2d}\u{31}\u{20}\u{3c}\u{3c}\u{20}\u{25}\u{64}",math.mininteger)
|
||||
assert((load(code)() == 0x0))
|
||||
end
|
||||
assert(- (((0x1 >> 0x1) == (((0x1 << ((numbits - 0x1)))) - 0x1)) and ((0x1 << 0x1f) == 0x80000000)))
|
||||
assert(- ((0x1 >> ((numbits - 0x1))) == 0x1))
|
||||
assert(- (((0x1 >> 0x1) == ((0x1 << (numbits - 0x1)) - 0x1)) and ((0x1 << 0x1f) == 0x80000000)))
|
||||
assert(- ((0x1 >> (numbits - 0x1)) == 0x1))
|
||||
assert(- (((0x1 >> numbits) == 0x0) and - (0x1 >> - ((numbits == 0x0) and - (((0x1 << numbits) == 0x0) and - (0x1 << - (numbits == 0x0)))))))
|
||||
assert(((0x1 >> math.mininteger) == 0x0))
|
||||
assert(((0x1 >> math.maxinteger) == 0x0))
|
||||
assert(((0x1 << math.mininteger) == 0x0))
|
||||
assert(((0x1 << math.maxinteger) == 0x0))
|
||||
assert((((((0x2 ^ 0x1e) - 0x1)) << (0x2 ^ 0x1e)) == 0x0))
|
||||
assert((((((0x2 ^ 0x1e) - 0x1)) >> (0x2 ^ 0x1e)) == 0x0))
|
||||
assert(((((0x2 ^ 0x1e) - 0x1) << (0x2 ^ 0x1e)) == 0x0))
|
||||
assert(((((0x2 ^ 0x1e) - 0x1) >> (0x2 ^ 0x1e)) == 0x0))
|
||||
assert((0x1 >> - ((0x3 == (0x1 << 0x3)) and ((0x3e8 >> 0x5) == (0x3e8 << - 0x5)))))
|
||||
assert((("\u{30}\u{78}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}" | 0x0) == - 0x1))
|
||||
assert((("\u{30}\u{78}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{65}" & "\u{2d}\u{31}") == - 0x2))
|
||||
@ -68,9 +68,9 @@ assert((("\u{20}\u{20}\u{20}\u{a}\u{20}\u{20}\u{2d}\u{34}\u{35}\u{20}\u{20}\u{9}
|
||||
assert((("\u{31}\u{32}\u{33}\u{34}\u{2e}\u{30}" << "\u{35}\u{2e}\u{30}") == (0x4d2 * 0x20)))
|
||||
assert((("\u{30}\u{78}\u{66}\u{66}\u{66}\u{66}\u{2e}\u{30}" ~ "\u{30}\u{78}\u{41}\u{41}\u{41}\u{41}") == 0x5555))
|
||||
assert(~ ("\u{30}\u{78}\u{30}\u{2e}\u{30}\u{30}\u{30}\u{70}\u{34}" == - 0x1))
|
||||
assert((((("\u{37}" .. 0x3)) << 0x1) == 0x92))
|
||||
assert(((0xffffffff >> ((0x1 .. "\u{39}"))) == 0x1fff))
|
||||
assert(((0xa | ((0x1 .. "\u{39}"))) == 0x1b))
|
||||
assert(((("\u{37}" .. 0x3) << 0x1) == 0x92))
|
||||
assert(((0xffffffff >> (0x1 .. "\u{39}")) == 0x1fff))
|
||||
assert(((0xa | (0x1 .. "\u{39}")) == 0x1b))
|
||||
do
|
||||
local st,msg = pcall(function ()
|
||||
return (0x4 & "\u{61}")
|
||||
@ -95,7 +95,7 @@ return ~ (a & 0xffffffff)
|
||||
end
|
||||
function bit.band(x,y,z, ...)
|
||||
if not z then
|
||||
return (((((x or - 0x1)) & ((y or - 0x1)))) & 0xffffffff)
|
||||
return (((x or - 0x1) & (y or - 0x1)) & 0xffffffff)
|
||||
else
|
||||
local arg = {...}
|
||||
local res = ((x & y) & z)
|
||||
@ -108,7 +108,7 @@ end
|
||||
end
|
||||
function bit.bor(x,y,z, ...)
|
||||
if not z then
|
||||
return (((((x or 0x0)) | ((y or 0x0)))) & 0xffffffff)
|
||||
return (((x or 0x0) | (y or 0x0)) & 0xffffffff)
|
||||
else
|
||||
local arg = {...}
|
||||
local res = ((x | y) | z)
|
||||
@ -121,7 +121,7 @@ end
|
||||
end
|
||||
function bit.bxor(x,y,z, ...)
|
||||
if not z then
|
||||
return (((((x or 0x0)) ~ ((y or 0x0)))) & 0xffffffff)
|
||||
return (((x or 0x0) ~ (y or 0x0)) & 0xffffffff)
|
||||
else
|
||||
local arg = {...}
|
||||
local res = ((x ~ y) ~ z)
|
||||
@ -136,23 +136,23 @@ function bit.btest(...)
|
||||
return (bit.band(...) ~= 0x0)
|
||||
end
|
||||
function bit.lshift(a,b)
|
||||
return (((((a & 0xffffffff)) << b)) & 0xffffffff)
|
||||
return (((a & 0xffffffff) << b) & 0xffffffff)
|
||||
end
|
||||
function bit.rshift(a,b)
|
||||
return (((((a & 0xffffffff)) >> b)) & 0xffffffff)
|
||||
return (((a & 0xffffffff) >> b) & 0xffffffff)
|
||||
end
|
||||
function bit.arshift(a,b)
|
||||
a=(a & 0xffffffff)
|
||||
if ((b <= 0x0) or (((a & 0x80000000)) == 0x0)) then
|
||||
return (((a >> b)) & 0xffffffff)
|
||||
if ((b <= 0x0) or ((a & 0x80000000) == 0x0)) then
|
||||
return ((a >> b) & 0xffffffff)
|
||||
else
|
||||
return (((((a >> b)) | ~ ((0xffffffff >> b)))) & 0xffffffff)
|
||||
return (((a >> b) | ~ (0xffffffff >> b)) & 0xffffffff)
|
||||
end
|
||||
end
|
||||
function bit.lrotate(a,b)
|
||||
b=(b & 0x1f)
|
||||
a=(a & 0xffffffff)
|
||||
a=(((a << b)) | ((a >> ((0x20 - b)))))
|
||||
a=((a << b) | (a >> (0x20 - b)))
|
||||
return (a & 0xffffffff)
|
||||
end
|
||||
function bit.rrotate(a,b)
|
||||
@ -168,12 +168,12 @@ return f,~ (- (0x1 << w))
|
||||
end
|
||||
function bit.extract(a,f,w)
|
||||
local f,mask = checkfield(f,w)
|
||||
return (((a >> f)) & mask)
|
||||
return ((a >> f) & mask)
|
||||
end
|
||||
function bit.replace(a,v,f,w)
|
||||
local f,mask = checkfield(f,w)
|
||||
v=(v & mask)
|
||||
a=(((a & ~ ((mask << f)))) | ((v << f)))
|
||||
a=((a & ~ (mask << f)) | (v << f))
|
||||
return (a & 0xffffffff)
|
||||
end
|
||||
return bit
|
||||
@ -187,14 +187,14 @@ assert((bit32.bxor() == 0x0))
|
||||
assert((bit32.band() == bit32.band(0xffffffff)))
|
||||
assert((bit32.band(0x1,0x2) == 0x0))
|
||||
assert((bit32.band(- 0x1) == 0xffffffff))
|
||||
assert((bit32.band((((0x1 << 0x21)) - 0x1)) == 0xffffffff))
|
||||
assert((bit32.band(- (((0x1 << 0x21)) - 0x1)) == 0xffffffff))
|
||||
assert((bit32.band((((0x1 << 0x21)) + 0x1)) == 0x1))
|
||||
assert((bit32.band(- (((0x1 << 0x21)) + 0x1)) == 0x1))
|
||||
assert((bit32.band(- ((0x1 << 0x28))) == 0x0))
|
||||
assert((bit32.band(((0x1 << 0x21) - 0x1)) == 0xffffffff))
|
||||
assert((bit32.band(- ((0x1 << 0x21) - 0x1)) == 0xffffffff))
|
||||
assert((bit32.band(((0x1 << 0x21) + 0x1)) == 0x1))
|
||||
assert((bit32.band(- ((0x1 << 0x21) + 0x1)) == 0x1))
|
||||
assert((bit32.band(- (0x1 << 0x28)) == 0x0))
|
||||
assert((bit32.band((0x1 << 0x28)) == 0x0))
|
||||
assert((bit32.band(- (((0x1 << 0x28)) - 0x2)) == 0xfffffffe))
|
||||
assert((bit32.band((((0x1 << 0x28)) - 0x4)) == 0xfffffffc))
|
||||
assert((bit32.band(- ((0x1 << 0x28) - 0x2)) == 0xfffffffe))
|
||||
assert((bit32.band(((0x1 << 0x28) - 0x4)) == 0xfffffffc))
|
||||
assert((bit32.lrotate(0x0,- 0x1) == 0x0))
|
||||
assert((bit32.lrotate(0x0,0x7) == 0x0))
|
||||
assert((bit32.lrotate(0x12345678,0x0) == 0x12345678))
|
||||
@ -243,10 +243,10 @@ do
|
||||
assert((bit32.band(b) == b))
|
||||
assert((bit32.band(b,b) == b))
|
||||
assert((bit32.band(b,b,b,b) == b))
|
||||
assert((bit32.btest(b,b) == ((b ~= 0x0))))
|
||||
assert((bit32.btest(b,b) == (b ~= 0x0)))
|
||||
assert((bit32.band(b,b,b) == b))
|
||||
assert((bit32.band(b,b,b,~ b) == 0x0))
|
||||
assert((bit32.btest(b,b,b) == ((b ~= 0x0))))
|
||||
assert((bit32.btest(b,b,b) == (b ~= 0x0)))
|
||||
assert((bit32.band(b,bit32.bnot(b)) == 0x0))
|
||||
assert((bit32.bor(b,bit32.bnot(b)) == bit32.bnot(0x0)))
|
||||
assert((bit32.bor(b) == b))
|
||||
@ -260,7 +260,7 @@ assert((bit32.bxor(b,b,b,b) == 0x0))
|
||||
assert((bit32.bxor(b,0x0) == b))
|
||||
assert((bit32.bnot(b) ~= b))
|
||||
assert((bit32.bnot(bit32.bnot(b)) == b))
|
||||
assert((bit32.bnot(b) == ((((0x1 << 0x20)) - 0x1) - b)))
|
||||
assert((bit32.bnot(b) == (((0x1 << 0x20) - 0x1) - b)))
|
||||
assert((bit32.lrotate(b,0x20) == b))
|
||||
assert((bit32.rrotate(b,0x20) == b))
|
||||
assert((bit32.lshift(bit32.lshift(b,- 0x4),0x4) == bit32.band(b,bit32.bnot(0xf))))
|
||||
@ -296,8 +296,8 @@ assert((bit32.replace(0x12345678,0x5,0x1c,0x4) == 0x52345678))
|
||||
assert((bit32.replace(0x12345678,0x87654321,0x0,0x20) == 0x87654321))
|
||||
assert((bit32.replace(0x0,0x1,0x2) == (0x2 ^ 0x2)))
|
||||
assert((bit32.replace(0x0,- 0x1,0x4) == (0x2 ^ 0x4)))
|
||||
assert((bit32.replace(- 0x1,0x0,0x1f) == (((0x1 << 0x1f)) - 0x1)))
|
||||
assert((bit32.replace(- 0x1,0x0,0x1,0x2) == (((0x1 << 0x20)) - 0x7)))
|
||||
assert((bit32.replace(- 0x1,0x0,0x1f) == ((0x1 << 0x1f) - 0x1)))
|
||||
assert((bit32.replace(- 0x1,0x0,0x1,0x2) == ((0x1 << 0x20) - 0x7)))
|
||||
assert((bit32.bor(3.0) == 0x3))
|
||||
assert((bit32.bor(- 4.0) == 0xfffffffc))
|
||||
if (((2.0 ^ 0x32) < ((2.0 ^ 0x32) + 1.0)) and ((2.0 ^ 0x32) < (- (0x1 >> 0x1)))) then
|
||||
|
||||
@ -267,7 +267,7 @@ print("\u{2b}")
|
||||
local function unlpack
|
||||
(t,i)
|
||||
i=(i or 0x1)
|
||||
if ((i <= # t)) then
|
||||
if (i <= # t) then
|
||||
return t[i],unlpack(t,(i + 0x1))
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{6f}\u{70}\u{63}\u{6f}\u{64}\u{65}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{6f}\u{70}\u{63}\u{6f}\u{64}\u{65}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
return
|
||||
end
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{64}\u{65}\u{20}\u{67}\u{65}\u{6e}\u{65}\u{72}\u{61}\u{74}\u{69}\u{6f}\u{6e}\u{20}\u{61}\u{6e}\u{64}\u{20}\u{6f}\u{70}\u{74}\u{69}\u{6d}\u{69}\u{7a}\u{61}\u{74}\u{69}\u{6f}\u{6e}\u{73}")
|
||||
@ -7,7 +7,7 @@ local k0aux <const> = 0x0
|
||||
local k0 <const> = k0aux
|
||||
local k1 <const> = 0x1
|
||||
local k3 <const> = 0x3
|
||||
local k6 <const> = (k3 + ((k3 << k0)))
|
||||
local k6 <const> = (k3 + (k3 << k0))
|
||||
local kFF0 <const> = 0xff0
|
||||
local k3_78 <const> = 3.78
|
||||
local x,k3_78_4 <const> = 0xa,(k3_78 / 0x4)
|
||||
@ -218,7 +218,7 @@ end,"\u{4c}\u{4f}\u{41}\u{44}\u{54}\u{52}\u{55}\u{45}","\u{52}\u{45}\u{54}\u{55}
|
||||
check(function ()
|
||||
local a,b,c,d
|
||||
a=(b * a)
|
||||
c.x,a[b]=- (((((a + (d / b)) - a[b])) ^ a.x)),b
|
||||
c.x,a[b]=- (((a + (d / b)) - a[b]) ^ a.x),b
|
||||
end,"\u{4c}\u{4f}\u{41}\u{44}\u{4e}\u{49}\u{4c}","\u{4d}\u{55}\u{4c}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}","\u{44}\u{49}\u{56}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}","\u{41}\u{44}\u{44}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}","\u{47}\u{45}\u{54}\u{54}\u{41}\u{42}\u{4c}\u{45}","\u{53}\u{55}\u{42}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}","\u{47}\u{45}\u{54}\u{46}\u{49}\u{45}\u{4c}\u{44}","\u{50}\u{4f}\u{57}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}","\u{55}\u{4e}\u{4d}","\u{53}\u{45}\u{54}\u{54}\u{41}\u{42}\u{4c}\u{45}","\u{53}\u{45}\u{54}\u{46}\u{49}\u{45}\u{4c}\u{44}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{30}")
|
||||
check(function ()
|
||||
local a,b
|
||||
@ -339,10 +339,10 @@ checkK(function ()
|
||||
return (0x3 ^ - 0x1)
|
||||
end,(0x1 / 0x3))
|
||||
checkK(function ()
|
||||
return (((0x1 + 0x1)) ^ ((0x32 + 0x32)))
|
||||
return ((0x1 + 0x1) ^ (0x32 + 0x32))
|
||||
end,(0x2 ^ 0x64))
|
||||
checkK(function ()
|
||||
return ((- 0x2) ^ ((0x1f - 0x2)))
|
||||
return ((- 0x2) ^ (0x1f - 0x2))
|
||||
end,- (0x20000000 + 0.0))
|
||||
checkF(function ()
|
||||
return ((- ((k3 ^ 0x0) + 0x5)) // 3.0)
|
||||
@ -351,10 +351,10 @@ checkI(function ()
|
||||
return - (k3 % 0x5)
|
||||
end,0x2)
|
||||
checkF(function ()
|
||||
return - ((((((((2.0 ^ 0x8) + - (- 0x1))) % 0x8)) / 0x2) * 0x4) - 0x3)
|
||||
return - ((((((2.0 ^ 0x8) + - (- 0x1)) % 0x8) / 0x2) * 0x4) - 0x3)
|
||||
end,- 5.0)
|
||||
checkF(function ()
|
||||
return - ((((((((0x2 ^ 0x8) + - (- 0x1))) % 0x8)) // 0x2) * 0x4) - 0x3)
|
||||
return - ((((((0x2 ^ 0x8) + - (- 0x1)) % 0x8) // 0x2) * 0x4) - 0x3)
|
||||
end,- 7.0)
|
||||
checkI(function ()
|
||||
return (240.0 | (204.0 ~ (0xaa & 0xfd)))
|
||||
@ -366,11 +366,11 @@ checkI(function ()
|
||||
return ~ ~ - 1024.0
|
||||
end,- 0x400)
|
||||
checkI(function ()
|
||||
return (((((0x64 << k6)) << - 0x4)) >> 0x2)
|
||||
return (((0x64 << k6) << - 0x4) >> 0x2)
|
||||
end,0x64)
|
||||
local a = 0x11
|
||||
;
|
||||
local sbx = (((((0x1 << a)) - 0x1)) >> 0x1)
|
||||
local sbx = (((0x1 << a) - 0x1) >> 0x1)
|
||||
local border <const> = 0xffff
|
||||
checkI(function ()
|
||||
return border
|
||||
@ -385,8 +385,8 @@ checkK(function ()
|
||||
return (border + 0x2)
|
||||
end,(sbx + 0x2))
|
||||
checkK(function ()
|
||||
return - ((border + 0x1))
|
||||
end,- ((sbx + 0x1)))
|
||||
return - (border + 0x1)
|
||||
end,- (sbx + 0x1))
|
||||
local border <const> = 65535.0
|
||||
checkF(function ()
|
||||
return border
|
||||
@ -396,13 +396,13 @@ return - border
|
||||
end,- (sbx + 0.0))
|
||||
checkF(function ()
|
||||
return (border + 0x1)
|
||||
end,((sbx + 1.0)))
|
||||
end,(sbx + 1.0))
|
||||
checkK(function ()
|
||||
return (border + 0x2)
|
||||
end,((sbx + 2.0)))
|
||||
end,(sbx + 2.0))
|
||||
checkK(function ()
|
||||
return - ((border + 0x1))
|
||||
end,- ((sbx + 1.0)))
|
||||
return - (border + 0x1)
|
||||
end,- (sbx + 1.0))
|
||||
checkR(function (x)
|
||||
return (x + k1)
|
||||
end,0xa,0xb,"\u{41}\u{44}\u{44}\u{49}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}\u{49}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{31}")
|
||||
@ -428,7 +428,7 @@ checkR(function (x)
|
||||
return (x // 0x1)
|
||||
end,10.0,10.0,"\u{49}\u{44}\u{49}\u{56}\u{4b}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}\u{4b}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{31}")
|
||||
checkR(function (x)
|
||||
return (x % ((0x64 - 0xa)))
|
||||
return (x % (0x64 - 0xa))
|
||||
end,0x5b,0x1,"\u{4d}\u{4f}\u{44}\u{4b}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}\u{4b}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{31}")
|
||||
checkR(function (x)
|
||||
return (k1 << x)
|
||||
@ -470,7 +470,7 @@ checkR(function (x)
|
||||
return (x // 0x2710)
|
||||
end,0x2710,0x1,"\u{49}\u{44}\u{49}\u{56}\u{4b}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}\u{4b}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{31}")
|
||||
checkR(function (x)
|
||||
return (x % ((100.0 - 0xa)))
|
||||
return (x % (100.0 - 0xa))
|
||||
end,0x5b,1.0,"\u{4d}\u{4f}\u{44}\u{4b}","\u{4d}\u{4d}\u{42}\u{49}\u{4e}\u{4b}","\u{52}\u{45}\u{54}\u{55}\u{52}\u{4e}\u{31}")
|
||||
check(function ()
|
||||
return - 0.0
|
||||
@ -527,7 +527,7 @@ end
|
||||
checkequal(function ()
|
||||
local a
|
||||
;
|
||||
if not ((a or b)) then
|
||||
if not (a or b) then
|
||||
b=a
|
||||
end
|
||||
end,function ()
|
||||
@ -544,7 +544,7 @@ return ((0x0 <= a) and (a <= l))
|
||||
end,function (l)
|
||||
local a
|
||||
;
|
||||
return not (not (((a >= 0x0)) or not ((a <= l))))
|
||||
return not (not ((a >= 0x0) or not (a <= l)))
|
||||
end)
|
||||
check(function (a,b)
|
||||
while a do
|
||||
|
||||
@ -28,13 +28,13 @@ a=(0x3 // 0x0)
|
||||
;
|
||||
a=(0x0 % 0x0)
|
||||
end
|
||||
assert((((0x2 ^ 0x3) ^ 0x2) == (0x2 ^ ((0x3 ^ 0x2)))))
|
||||
assert((((0x2 ^ 0x3) ^ 0x2) == (0x2 ^ (0x3 ^ 0x2))))
|
||||
;
|
||||
assert((((0x2 ^ 0x3) * 0x4) == (((0x2 ^ 0x3)) * 0x4)))
|
||||
assert((((0x2 ^ 0x3) * 0x4) == ((0x2 ^ 0x3) * 0x4)))
|
||||
;
|
||||
assert((2.0 ^ - ((0x2 == (0x1 / 0x4)) and - (0x2 ^ - - (0x2 == - - - 0x4)))))
|
||||
;
|
||||
assert(not ((nil and 0x2) and not (((0x2 > 0x3) or (0x3 < 0x2)))))
|
||||
assert(not ((nil and 0x2) and not ((0x2 > 0x3) or (0x3 < 0x2))))
|
||||
;
|
||||
assert(- (((0x3 - 0x1) - 0x5) == ((0x0 + 0x0) - 0x9)))
|
||||
;
|
||||
@ -43,36 +43,36 @@ assert(- ((0x2 ^ 0x2) == - ((0x4 and (((- 0x2) ^ 0x2) == 0x4)) and ((((0x2 * 0x2
|
||||
assert(- (((0x3 % 0x5) == 0x2) and - ((0x3 + 0x5) == 0x2)))
|
||||
assert(((((0x2 * 0x1) + (0x3 / 0x3)) == 0x3) and (((0x1 + 0x2) .. (0x3 * 0x1)) == "\u{33}\u{33}")))
|
||||
;
|
||||
assert(not ((((0x2 + 0x1) > (0x3 * 0x1))) and (("\u{61}" .. "\u{62}") > "\u{61}")))
|
||||
assert(not (((0x2 + 0x1) > (0x3 * 0x1)) and (("\u{61}" .. "\u{62}") > "\u{61}")))
|
||||
;
|
||||
assert(((0xf0 | (0xcc ~ (0xaa & 0xfd))) == 0xf4))
|
||||
assert(((((0xfd & 0xaa) ~ 0xcc) | 0xf0) == 0xf4))
|
||||
assert(((0xf0 & (0xf + 0x1)) == 0x10))
|
||||
assert(((((0x3 ^ 0x4) // (0x2 ^ 0x3)) // 0x5) == 0x2))
|
||||
assert(- (((0x3 + (((0x4 * 0x5) // ((0x2 ^ 0x3) ^ 0x2)) // 0x9)) + ((0x4 % 0xa) / 0x3)) == (((- 0x3) + ((((((0x4 * 0x5)) // ((0x2 ^ ((0x3 ^ 0x2)))))) // 0x9))) + ((((0x4 % 0xa)) / 0x3)))))
|
||||
assert(not ((((true or false)) and nil)))
|
||||
assert(- (((0x3 + (((0x4 * 0x5) // ((0x2 ^ 0x3) ^ 0x2)) // 0x9)) + ((0x4 % 0xa) / 0x3)) == (((- 0x3) + (((0x4 * 0x5) // (0x2 ^ (0x3 ^ 0x2))) // 0x9)) + ((0x4 % 0xa) / 0x3))))
|
||||
assert(not ((true or false) and nil))
|
||||
assert((true or (false and nil)))
|
||||
assert((((((((0x1 or false)) and true)) or false)) == true))
|
||||
assert((((((((nil and true)) or false)) and true)) == false))
|
||||
assert(((((0x1 or false) and true) or false) == true))
|
||||
assert(((((nil and true) or false) and true) == false))
|
||||
local a,b = 0x1,nil
|
||||
;
|
||||
assert(- (((0x1 or 0x2)) == - (0x1 and ((((0x1 and 0x2)) + (- (1.25 or - 0x4))) == 0.75))))
|
||||
assert(- ((0x1 or 0x2) == - (0x1 and (((0x1 and 0x2) + (- (1.25 or - 0x4))) == 0.75))))
|
||||
;
|
||||
local x = ((((((b or a)) + 0x1) == 0x2) and ((((0xa or a)) + 0x1) == 0xb)))
|
||||
local x = ((((b or a) + 0x1) == 0x2) and (((0xa or a) + 0x1) == 0xb))
|
||||
;
|
||||
assert(x)
|
||||
;
|
||||
x=(((((((0x2 < 0x3)) or 0x1)) == true) and ((((0x2 < 0x3) and 0x4)) == 0x4)))
|
||||
x=((((0x2 < 0x3) or 0x1) == true) and (((0x2 < 0x3) and 0x4) == 0x4))
|
||||
;
|
||||
assert(x)
|
||||
;
|
||||
local x,y = 0x1,0x2
|
||||
;
|
||||
assert(((((x > y)) and x) or (y == 0x2)))
|
||||
assert((((x > y) and x) or (y == 0x2)))
|
||||
;
|
||||
x,y=0x2,0x1
|
||||
;
|
||||
assert(((((x > y)) and x) or (y == 0x2)))
|
||||
assert((((x > y) and x) or (y == 0x2)))
|
||||
;
|
||||
assert(((0x499602d2 == tonumber("\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}")) and ((0x499602d2 + 0x1) == 0x499602d3)))
|
||||
do
|
||||
@ -215,7 +215,7 @@ end
|
||||
end
|
||||
;
|
||||
end
|
||||
assert(((a == ((n * ((n + 0x1))) / 0x2)) and (i == 0x3)))
|
||||
assert(((a == ((n * (n + 0x1)) / 0x2)) and (i == 0x3)))
|
||||
;
|
||||
assert(((t[0x1] and t[n]) and not (t[0x0] and not t[(n + 0x1)])))
|
||||
function f(b)
|
||||
@ -340,7 +340,7 @@ f,a=load(f)()
|
||||
;
|
||||
assert(((a.a == 0x1) and a.b))
|
||||
function g(a,b,c,d,e)
|
||||
if not (((((a >= b) or c) or (d and e)) or nil)) then
|
||||
if not ((((a >= b) or c) or (d and e)) or nil) then
|
||||
return 0x0
|
||||
else
|
||||
return 0x1
|
||||
@ -349,7 +349,7 @@ end
|
||||
end
|
||||
local function h
|
||||
(a,b,c,d,e)
|
||||
while (((((a >= b) or c) or ((d and e))) or nil)) do
|
||||
while ((((a >= b) or c) or (d and e)) or nil) do
|
||||
return 0x1
|
||||
end
|
||||
;
|
||||
@ -367,7 +367,7 @@ assert((((0x1 and ((0x2 < 0x3) == true)) and (0x2 < 0x3)) and (("\u{61}" < "\u{6
|
||||
x=((0x2 < 0x3) and not 0x3)
|
||||
;
|
||||
assert((x == false))
|
||||
x=((0x2 < 0x1) or (((0x2 > 0x1) and "\u{61}")))
|
||||
x=((0x2 < 0x1) or ((0x2 > 0x1) and "\u{61}"))
|
||||
;
|
||||
assert((x == "\u{61}"))
|
||||
do
|
||||
|
||||
@ -282,7 +282,7 @@ do
|
||||
assert((f1(i) == i))
|
||||
end
|
||||
local r1,r2,v = f1(nil)
|
||||
assert((r1 and not (r2 and (v[0x1] == ((((0xa + 0x1)) * 0xa) / 0x2)))))
|
||||
assert((r1 and not (r2 and (v[0x1] == (((0xa + 0x1) * 0xa) / 0x2)))))
|
||||
local function f
|
||||
(a,b)
|
||||
a=coroutine.yield(a)
|
||||
@ -479,7 +479,7 @@ assert((_G.F() == 0xb))
|
||||
assert((_G.F() == 0xc))
|
||||
_G.F=nil
|
||||
if not T then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{72}\u{6f}\u{75}\u{74}\u{69}\u{6e}\u{65}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{72}\u{6f}\u{75}\u{74}\u{69}\u{6e}\u{65}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{79}\u{69}\u{65}\u{6c}\u{64}\u{73}\u{20}\u{69}\u{6e}\u{73}\u{69}\u{64}\u{65}\u{20}\u{68}\u{6f}\u{6f}\u{6b}\u{73}")
|
||||
local turn
|
||||
@ -823,21 +823,21 @@ i=(i + 0x1)
|
||||
end
|
||||
end
|
||||
assert((run(function ()
|
||||
if ((a >= b)) then
|
||||
if (a >= b) then
|
||||
return "\u{3e}\u{3d}"
|
||||
else
|
||||
return "\u{3c}"
|
||||
end
|
||||
end,{"\u{6c}\u{65}","\u{73}\u{75}\u{62}"}) == "\u{3c}"))
|
||||
assert((run(function ()
|
||||
if ((a <= b)) then
|
||||
if (a <= b) then
|
||||
return "\u{3c}\u{3d}"
|
||||
else
|
||||
return "\u{3e}"
|
||||
end
|
||||
end,{"\u{6c}\u{65}","\u{73}\u{75}\u{62}"}) == "\u{3c}\u{3d}"))
|
||||
assert((run(function ()
|
||||
if ((a == b)) then
|
||||
if (a == b) then
|
||||
return "\u{3d}\u{3d}"
|
||||
else
|
||||
return "\u{7e}\u{3d}"
|
||||
@ -961,7 +961,7 @@ end,{"\u{63}\u{6f}\u{6e}\u{63}\u{61}\u{74}","\u{63}\u{6f}\u{6e}\u{63}\u{61}\u{74
|
||||
do
|
||||
local mt1 = {["\u{5f}\u{5f}\u{6c}\u{65}"] = function (a,b)
|
||||
coroutine.yield(0xa)
|
||||
return ((val(a) <= val(b)))
|
||||
return (val(a) <= val(b))
|
||||
end,["\u{5f}\u{5f}\u{6c}\u{74}"] = function (a,b)
|
||||
coroutine.yield(0xa)
|
||||
return (val(a) < val(b))
|
||||
@ -1028,7 +1028,7 @@ end
|
||||
return s
|
||||
end,{"\u{66}\u{6f}\u{72}","\u{66}\u{6f}\u{72}","\u{66}\u{6f}\u{72}"}) == 0xa))
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{72}\u{6f}\u{75}\u{74}\u{69}\u{6e}\u{65}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{6f}\u{72}\u{6f}\u{75}\u{74}\u{69}\u{6e}\u{65}\u{20}\u{41}\u{50}\u{49}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
print("\u{4f}\u{4b}")
|
||||
;
|
||||
return
|
||||
|
||||
@ -236,8 +236,8 @@ do
|
||||
local n,v = debug.getlocal(0x1,- i)
|
||||
assert(((n == "\u{28}\u{76}\u{61}\u{72}\u{61}\u{72}\u{67}\u{29}") and (v == t[i])))
|
||||
end
|
||||
assert(not debug.getlocal(0x1,- ((t.n + 0x1))))
|
||||
assert(not debug.setlocal(0x1,- ((t.n + 0x1)),0x1e))
|
||||
assert(not debug.getlocal(0x1,- (t.n + 0x1)))
|
||||
assert(not debug.setlocal(0x1,- (t.n + 0x1),0x1e))
|
||||
if (t.n > 0x0) then
|
||||
(function (x)
|
||||
assert((debug.setlocal(0x2,- 0x1,x) == "\u{28}\u{76}\u{61}\u{72}\u{61}\u{72}\u{67}\u{29}"))
|
||||
@ -250,7 +250,7 @@ foo()
|
||||
foo(print)
|
||||
foo(0xc8,0x3,0x4)
|
||||
local a = {}
|
||||
for i = 0x1, (((_soft and 0x64) or 0x3e8))
|
||||
for i = 0x1, ((_soft and 0x64) or 0x3e8)
|
||||
do
|
||||
a[i]=i
|
||||
end
|
||||
@ -349,7 +349,7 @@ debug.setlocal(0x2,0x3,0xa)
|
||||
return 0x14
|
||||
end
|
||||
function g(a,b)
|
||||
return (((a + 0x1)) + f())
|
||||
return ((a + 0x1) + f())
|
||||
end
|
||||
assert((g(0x0,0x0) == 0x1e))
|
||||
_G.f,_G.g=nil
|
||||
@ -388,7 +388,7 @@ local tab = {}
|
||||
for i = 0x1, math.huge
|
||||
do
|
||||
local n,v = debug.getlocal((level + 0x1),i)
|
||||
if not ((n and string.find(n,"\u{5e}\u{5b}\u{61}\u{2d}\u{7a}\u{41}\u{2d}\u{5a}\u{30}\u{2d}\u{39}\u{5f}\u{5d}\u{2b}\u{24}"))) then
|
||||
if not (n and string.find(n,"\u{5e}\u{5b}\u{61}\u{2d}\u{7a}\u{41}\u{2d}\u{5a}\u{30}\u{2d}\u{39}\u{5f}\u{5d}\u{2b}\u{24}")) then
|
||||
break
|
||||
end
|
||||
tab[n]=v
|
||||
|
||||
@ -61,7 +61,7 @@ checksyntax("\u{20}\u{20}\u{20}\u{20}\u{3a}\u{3a}\u{41}\u{3a}\u{3a}\u{20}\u{61}\
|
||||
checksyntax("\u{20}\u{20}\u{20}\u{20}\u{61}\u{20}\u{3d}\u{20}\u{31}\u{a}\u{20}\u{20}\u{20}\u{20}\u{67}\u{6f}\u{74}\u{6f}\u{20}\u{41}\u{a}\u{20}\u{20}\u{20}\u{20}\u{64}\u{6f}\u{20}\u{3a}\u{3a}\u{41}\u{3a}\u{3a}\u{20}\u{65}\u{6e}\u{64}\u{a}\u{20}\u{20}","\u{6e}\u{6f}\u{20}\u{76}\u{69}\u{73}\u{69}\u{62}\u{6c}\u{65}\u{20}\u{6c}\u{61}\u{62}\u{65}\u{6c}\u{20}\u{27}\u{41}\u{27}",0x2)
|
||||
end
|
||||
if not T then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{6d}\u{65}\u{73}\u{73}\u{61}\u{67}\u{65}\u{73}\u{20}\u{69}\u{6e}\u{20}\u{43}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{6d}\u{65}\u{73}\u{73}\u{61}\u{67}\u{65}\u{73}\u{20}\u{69}\u{6e}\u{20}\u{43}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}\u{20}\u{65}\u{72}\u{72}\u{6f}\u{72}\u{20}\u{6d}\u{65}\u{73}\u{73}\u{61}\u{67}\u{65}")
|
||||
local a = {}
|
||||
@ -445,7 +445,7 @@ assert((res() == finalresult))
|
||||
end
|
||||
s=(init .. string.rep(rep,0x1f4))
|
||||
local res,msg = load(s)
|
||||
assert(not (res and ((string.find(msg,"\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}") or string.find(msg,"\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}")))))
|
||||
assert(not (res and (string.find(msg,"\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}") or string.find(msg,"\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}"))))
|
||||
end
|
||||
testrep("\u{6c}\u{6f}\u{63}\u{61}\u{6c}\u{20}\u{61}\u{3b}\u{20}\u{61}","\u{2c}\u{61}","\u{3d}\u{20}\u{31}","\u{2c}\u{31}")
|
||||
testrep("\u{6c}\u{6f}\u{63}\u{61}\u{6c}\u{20}\u{61}\u{3b}\u{20}\u{61}\u{3d}","\u{7b}","\u{30}","\u{7d}")
|
||||
|
||||
@ -33,7 +33,7 @@ assert((setmetatable(a,t) == a))
|
||||
function f(t,i,e)
|
||||
assert(not e)
|
||||
local p = rawget(t,"\u{70}\u{61}\u{72}\u{65}\u{6e}\u{74}")
|
||||
return ((p and (p[i] + 0x3))),"\u{64}\u{75}\u{6d}\u{6d}\u{79}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}"
|
||||
return (p and (p[i] + 0x3)),"\u{64}\u{75}\u{6d}\u{6d}\u{79}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}"
|
||||
end
|
||||
t.__index=f
|
||||
a.parent={["\u{7a}"] = 0x19,["\u{78}"] = 0xc,[0x4] = 0x18}
|
||||
@ -221,7 +221,7 @@ checkcap({"\u{64}\u{69}\u{76}",a,0.0})
|
||||
assert(((a % 0x2) == a))
|
||||
;
|
||||
checkcap({"\u{6d}\u{6f}\u{64}",a,0x2})
|
||||
assert(((a // ((0x1 / 0x0))) == a))
|
||||
assert(((a // (0x1 / 0x0)) == a))
|
||||
;
|
||||
checkcap({"\u{69}\u{64}\u{69}\u{76}",a,(0x1 / 0x0)})
|
||||
;
|
||||
@ -339,18 +339,18 @@ return setmetatable({["\u{78}"] = x},t)
|
||||
end
|
||||
local function test
|
||||
(a,b,c)
|
||||
assert(not ((((Op(0x1) < Op(0x1))) and ((Op(0x1) < Op(0x2)))) and not ((Op(0x2) < Op(0x1)))))
|
||||
assert(not ((((0x1 < Op(0x1))) and ((Op(0x1) < 0x2))) and not ((0x2 < Op(0x1)))))
|
||||
assert(not ((((Op("\u{61}") < Op("\u{61}"))) and ((Op("\u{61}") < Op("\u{62}")))) and not ((Op("\u{62}") < Op("\u{61}")))))
|
||||
assert(not (((("\u{61}" < Op("\u{61}"))) and ((Op("\u{61}") < "\u{62}"))) and not ((Op("\u{62}") < Op("\u{61}")))))
|
||||
assert(((((Op(0x1) <= Op(0x1))) and ((Op(0x1) <= Op(0x2)))) and not ((Op(0x2) <= Op(0x1)))))
|
||||
assert(((((Op("\u{61}") <= Op("\u{61}"))) and ((Op("\u{61}") <= Op("\u{62}")))) and not ((Op("\u{62}") <= Op("\u{61}")))))
|
||||
assert(not (((Op(0x1) > Op(0x1))) and not (((Op(0x1) > Op(0x2))) and ((Op(0x2) > Op(0x1))))))
|
||||
assert(not (((Op("\u{61}") > Op("\u{61}"))) and not (((Op("\u{61}") > Op("\u{62}"))) and ((Op("\u{62}") > Op("\u{61}"))))))
|
||||
assert((((Op(0x1) >= Op(0x1))) and not (((Op(0x1) >= Op(0x2))) and ((Op(0x2) >= Op(0x1))))))
|
||||
assert((((0x1 >= Op(0x1))) and not (((0x1 >= Op(0x2))) and ((Op(0x2) >= 0x1)))))
|
||||
assert((((Op("\u{61}") >= Op("\u{61}"))) and not (((Op("\u{61}") >= Op("\u{62}"))) and ((Op("\u{62}") >= Op("\u{61}"))))))
|
||||
assert(((("\u{61}" >= Op("\u{61}"))) and not (((Op("\u{61}") >= "\u{62}")) and ((Op("\u{62}") >= Op("\u{61}"))))))
|
||||
assert(not (((Op(0x1) < Op(0x1)) and (Op(0x1) < Op(0x2))) and not (Op(0x2) < Op(0x1))))
|
||||
assert(not (((0x1 < Op(0x1)) and (Op(0x1) < 0x2)) and not (0x2 < Op(0x1))))
|
||||
assert(not (((Op("\u{61}") < Op("\u{61}")) and (Op("\u{61}") < Op("\u{62}"))) and not (Op("\u{62}") < Op("\u{61}"))))
|
||||
assert(not ((("\u{61}" < Op("\u{61}")) and (Op("\u{61}") < "\u{62}")) and not (Op("\u{62}") < Op("\u{61}"))))
|
||||
assert((((Op(0x1) <= Op(0x1)) and (Op(0x1) <= Op(0x2))) and not (Op(0x2) <= Op(0x1))))
|
||||
assert((((Op("\u{61}") <= Op("\u{61}")) and (Op("\u{61}") <= Op("\u{62}"))) and not (Op("\u{62}") <= Op("\u{61}"))))
|
||||
assert(not ((Op(0x1) > Op(0x1)) and not ((Op(0x1) > Op(0x2)) and (Op(0x2) > Op(0x1)))))
|
||||
assert(not ((Op("\u{61}") > Op("\u{61}")) and not ((Op("\u{61}") > Op("\u{62}")) and (Op("\u{62}") > Op("\u{61}")))))
|
||||
assert(((Op(0x1) >= Op(0x1)) and not ((Op(0x1) >= Op(0x2)) and (Op(0x2) >= Op(0x1)))))
|
||||
assert(((0x1 >= Op(0x1)) and not ((0x1 >= Op(0x2)) and (Op(0x2) >= 0x1))))
|
||||
assert(((Op("\u{61}") >= Op("\u{61}")) and not ((Op("\u{61}") >= Op("\u{62}")) and (Op("\u{62}") >= Op("\u{61}")))))
|
||||
assert((("\u{61}" >= Op("\u{61}")) and not ((Op("\u{61}") >= "\u{62}") and (Op("\u{62}") >= Op("\u{61}")))))
|
||||
assert(((Op(0x1) == Op(0x1)) and (Op(0x1) ~= Op(0x2))))
|
||||
assert(((Op("\u{61}") == Op("\u{61}")) and (Op("\u{61}") ~= Op("\u{62}"))))
|
||||
assert(((a == a) and (a ~= b)))
|
||||
@ -390,12 +390,12 @@ end
|
||||
return true
|
||||
end
|
||||
assert((Set({0x1,0x2,0x3}) < Set({0x1,0x2,0x3,0x4})))
|
||||
assert(not ((Set({0x1,0x2,0x3,0x4}) < Set({0x1,0x2,0x3,0x4}))))
|
||||
assert(((Set({0x1,0x2,0x3,0x4}) <= Set({0x1,0x2,0x3,0x4}))))
|
||||
assert(((Set({0x1,0x2,0x3,0x4}) >= Set({0x1,0x2,0x3,0x4}))))
|
||||
assert(not ((Set({0x1,0x3}) <= Set({0x3,0x5}))))
|
||||
assert(not ((Set({0x1,0x3}) <= Set({0x3,0x5}))))
|
||||
assert(not ((Set({0x1,0x3}) >= Set({0x3,0x5}))))
|
||||
assert(not (Set({0x1,0x2,0x3,0x4}) < Set({0x1,0x2,0x3,0x4})))
|
||||
assert((Set({0x1,0x2,0x3,0x4}) <= Set({0x1,0x2,0x3,0x4})))
|
||||
assert((Set({0x1,0x2,0x3,0x4}) >= Set({0x1,0x2,0x3,0x4})))
|
||||
assert(not (Set({0x1,0x3}) <= Set({0x3,0x5})))
|
||||
assert(not (Set({0x1,0x3}) <= Set({0x3,0x5})))
|
||||
assert(not (Set({0x1,0x3}) >= Set({0x3,0x5})))
|
||||
t.__eq=function (a,b)
|
||||
for k in pairs(a)
|
||||
do
|
||||
@ -427,7 +427,7 @@ end
|
||||
assert((a == b))
|
||||
end
|
||||
if not T then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{75}\u{73}\u{65}\u{72}\u{64}\u{61}\u{74}\u{61}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{75}\u{73}\u{65}\u{72}\u{64}\u{61}\u{74}\u{61}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
local u1 = T.newuserdata(0x0,0x1)
|
||||
local u2 = T.newuserdata(0x0,0x1)
|
||||
@ -482,9 +482,9 @@ d={["\u{76}\u{61}\u{6c}"] = "\u{64}"}
|
||||
setmetatable(d,t)
|
||||
A=true
|
||||
assert(((c .. d) == "\u{63}\u{64}"))
|
||||
assert(((0x0 .. ("\u{61}" .. ("\u{62}" .. (c .. (d .. ("\u{65}" .. ("\u{66}" .. (((0x5 + 0x3)) .. "\u{67}")))))))) == "\u{30}\u{61}\u{62}\u{63}\u{64}\u{65}\u{66}\u{38}\u{67}"))
|
||||
assert(((0x0 .. ("\u{61}" .. ("\u{62}" .. (c .. (d .. ("\u{65}" .. ("\u{66}" .. ((0x5 + 0x3) .. "\u{67}")))))))) == "\u{30}\u{61}\u{62}\u{63}\u{64}\u{65}\u{66}\u{38}\u{67}"))
|
||||
A=false
|
||||
assert((((c .. (d .. (c .. d)))).val == "\u{63}\u{64}\u{63}\u{64}"))
|
||||
assert(((c .. (d .. (c .. d))).val == "\u{63}\u{64}\u{63}\u{64}"))
|
||||
x=(c .. d)
|
||||
assert(((getmetatable(x) == t) and (x.val == "\u{63}\u{64}")))
|
||||
x=(0x0 .. ("\u{61}" .. ("\u{62}" .. (c .. (d .. ("\u{65}" .. ("\u{66}" .. "\u{67}")))))))
|
||||
@ -514,12 +514,12 @@ t1.__le=function ()
|
||||
return false
|
||||
end
|
||||
setmetatable(d,t1)
|
||||
assert((((c == d) and (c < d)) and not ((d <= c))))
|
||||
assert((((c == d) and (c < d)) and not (d <= c)))
|
||||
t2={}
|
||||
t2.__eq=t1.__eq
|
||||
t2.__lt=t1.__lt
|
||||
setmetatable(d,t2)
|
||||
assert((((c == d) and (c < d)) and not ((d <= c))))
|
||||
assert((((c == d) and (c < d)) and not (d <= c)))
|
||||
local i
|
||||
local tt = {["\u{5f}\u{5f}\u{63}\u{61}\u{6c}\u{6c}"] = function (t, ...)
|
||||
i=(i + 0x1)
|
||||
@ -570,7 +570,7 @@ assert((getmetatable(true) == nil))
|
||||
debug.setmetatable(nil,mt)
|
||||
assert((getmetatable(nil) == mt))
|
||||
mt.__add=function (a,b)
|
||||
return (((a or 0x1)) + ((b or 0x2)))
|
||||
return ((a or 0x1) + (b or 0x2))
|
||||
end
|
||||
assert(((0xa + nil) == 0xc))
|
||||
assert(((nil + 0x17) == 0x18))
|
||||
|
||||
@ -30,7 +30,7 @@ assert(not ((a and (type(b) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}")) and (typ
|
||||
local file = os.tmpname()
|
||||
local f,msg = io.open(file,"\u{77}")
|
||||
if not f then
|
||||
((Message or print))("\u{27}\u{6f}\u{73}\u{2e}\u{74}\u{6d}\u{70}\u{6e}\u{61}\u{6d}\u{65}\u{27}\u{20}\u{66}\u{69}\u{6c}\u{65}\u{20}\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{62}\u{65}\u{20}\u{6f}\u{70}\u{65}\u{6e}\u{3b}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{66}\u{69}\u{6c}\u{65}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}")
|
||||
(Message or print)("\u{27}\u{6f}\u{73}\u{2e}\u{74}\u{6d}\u{70}\u{6e}\u{61}\u{6d}\u{65}\u{27}\u{20}\u{66}\u{69}\u{6c}\u{65}\u{20}\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{62}\u{65}\u{20}\u{6f}\u{70}\u{65}\u{6e}\u{3b}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{66}\u{69}\u{6c}\u{65}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}")
|
||||
else
|
||||
f:close()
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{69}\u{2f}\u{6f}")
|
||||
@ -344,7 +344,7 @@ assert(io.close(io.input()))
|
||||
do
|
||||
local function ismsg
|
||||
(m)
|
||||
return (((type(m) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}") and not tonumber(m)))
|
||||
return ((type(m) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}") and not tonumber(m))
|
||||
end
|
||||
local f = io.open(file,"\u{77}")
|
||||
local r,m,c = f:read()
|
||||
@ -403,7 +403,7 @@ io.output(file)
|
||||
io.write("\u{61}\u{20}\u{3d}\u{20}\u{31}\u{30}\u{20}\u{2b}\u{20}\u{33}\u{34}\u{a}\u{61}\u{20}\u{3d}\u{20}\u{32}\u{2a}\u{61}\u{a}\u{61}\u{20}\u{3d}\u{20}\u{2d}\u{61}\u{a}"):close()
|
||||
local t = {}
|
||||
assert(load(io.lines(file,"\u{4c}"),nil,nil,t))()
|
||||
assert((t.a == - ((((0xa + 0x22)) * 0x2))))
|
||||
assert((t.a == - ((0xa + 0x22) * 0x2)))
|
||||
do
|
||||
local function gettoclose
|
||||
(lv)
|
||||
@ -690,7 +690,7 @@ if (v[0x2] == "\u{6f}\u{6b}") then
|
||||
assert(((x and (y == "\u{65}\u{78}\u{69}\u{74}")) and (z == 0x0)))
|
||||
else
|
||||
assert(not (x and (y == v[0x2])))
|
||||
assert(((((v[0x3] == nil) and (z > 0x0))) or (v[0x3] == z)))
|
||||
assert((((v[0x3] == nil) and (z > 0x0)) or (v[0x3] == z)))
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -737,21 +737,21 @@ checkerr("\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{6e}\u{20}\u{69}\u{6e}\u{74}\u{65}\u{6
|
||||
checkerr("\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{6e}\u{20}\u{69}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = 0x3e8,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1,["\u{68}\u{6f}\u{75}\u{72}"] = 1.5})
|
||||
checkerr("\u{6d}\u{69}\u{73}\u{73}\u{69}\u{6e}\u{67}",os.time,{["\u{68}\u{6f}\u{75}\u{72}"] = 0xc})
|
||||
if (string.packsize("\u{69}") == 0x4) then
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = - (((0x1 << 0x1f)) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = - ((0x1 << 0x1f)),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = - ((0x1 << 0x1f) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = - (0x1 << 0x1f),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
if (math.maxinteger > (0x2 ^ 0x1f)) then
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = (((0x1 << 0x1f)) + 0x76c),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = ((0x1 << 0x1f) + 0x76c),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
end
|
||||
end
|
||||
if not _port then
|
||||
assert((type(os.date("\u{25}\u{45}\u{78}")) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}"))
|
||||
assert((type(os.date("\u{25}\u{4f}\u{79}")) == "\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}"))
|
||||
local t0 = os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x0})
|
||||
local t1 = os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x0,["\u{73}\u{65}\u{63}"] = (((0x1 << 0x1f)) - 0x1)})
|
||||
assert(((t1 - t0) == (((0x1 << 0x1f)) - 0x1)))
|
||||
local t1 = os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x0,["\u{73}\u{65}\u{63}"] = ((0x1 << 0x1f) - 0x1)})
|
||||
assert(((t1 - t0) == ((0x1 << 0x1f) - 0x1)))
|
||||
t0=os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
t1=os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1,["\u{73}\u{65}\u{63}"] = - ((0x1 << 0x1f))})
|
||||
assert(((t1 - t0) == - ((0x1 << 0x1f))))
|
||||
t1=os.time({["\u{79}\u{65}\u{61}\u{72}"] = 0x7b2,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1,["\u{73}\u{65}\u{63}"] = - (0x1 << 0x1f)})
|
||||
assert(((t1 - t0) == - (0x1 << 0x1f)))
|
||||
if (maxint >= (0x2 ^ 0x3e)) then
|
||||
checkerr("\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = - maxint,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
if (string.packsize("\u{69}") == 0x4) then
|
||||
@ -761,12 +761,12 @@ checkerr("\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{62}\u{65}\u{20}\u{72}\u{6
|
||||
else
|
||||
print("\u{20}\u{20}\u{38}\u{2d}\u{62}\u{79}\u{74}\u{65}\u{20}\u{74}\u{69}\u{6d}\u{65}\u{5f}\u{74}")
|
||||
checkerr("\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{62}\u{65}\u{20}\u{72}\u{65}\u{70}\u{72}\u{65}\u{73}\u{65}\u{6e}\u{74}\u{65}\u{64}",os.date,"\u{25}\u{59}",(0x2 ^ 0x3c))
|
||||
assert(tonumber(os.time({["\u{79}\u{65}\u{61}\u{72}"] = (((0x1 << 0x1f)) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0xc,["\u{64}\u{61}\u{79}"] = 0x1f,["\u{68}\u{6f}\u{75}\u{72}"] = 0x17,["\u{6d}\u{69}\u{6e}"] = 0x3b,["\u{73}\u{65}\u{63}"] = 0x3b})))
|
||||
checkerr("\u{72}\u{65}\u{70}\u{72}\u{65}\u{73}\u{65}\u{6e}\u{74}\u{65}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = (((0x1 << 0x1f)) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0xc,["\u{64}\u{61}\u{79}"] = 0x1f,["\u{68}\u{6f}\u{75}\u{72}"] = 0x17,["\u{6d}\u{69}\u{6e}"] = 0x3b,["\u{73}\u{65}\u{63}"] = 0x3c})
|
||||
assert(tonumber(os.time({["\u{79}\u{65}\u{61}\u{72}"] = ((0x1 << 0x1f) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0xc,["\u{64}\u{61}\u{79}"] = 0x1f,["\u{68}\u{6f}\u{75}\u{72}"] = 0x17,["\u{6d}\u{69}\u{6e}"] = 0x3b,["\u{73}\u{65}\u{63}"] = 0x3b})))
|
||||
checkerr("\u{72}\u{65}\u{70}\u{72}\u{65}\u{73}\u{65}\u{6e}\u{74}\u{65}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = ((0x1 << 0x1f) + 0x76b),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0xc,["\u{64}\u{61}\u{79}"] = 0x1f,["\u{68}\u{6f}\u{75}\u{72}"] = 0x17,["\u{6d}\u{69}\u{6e}"] = 0x3b,["\u{73}\u{65}\u{63}"] = 0x3c})
|
||||
end
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{64}\u{61}\u{79}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = 0x0,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = (0x2 ^ 0x20)})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{6d}\u{6f}\u{6e}\u{74}\u{68}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = 0x0,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = - ((((0x1 << 0x1f)) + 0x1)),["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = (((0x1 << 0x1f)) + 0x76c),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{6d}\u{6f}\u{6e}\u{74}\u{68}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = 0x0,["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = - ((0x1 << 0x1f) + 0x1),["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
checkerr("\u{66}\u{69}\u{65}\u{6c}\u{64}\u{20}\u{27}\u{79}\u{65}\u{61}\u{72}\u{27}\u{20}\u{69}\u{73}\u{20}\u{6f}\u{75}\u{74}\u{2d}\u{6f}\u{66}\u{2d}\u{62}\u{6f}\u{75}\u{6e}\u{64}",os.time,{["\u{79}\u{65}\u{61}\u{72}"] = ((0x1 << 0x1f) + 0x76c),["\u{6d}\u{6f}\u{6e}\u{74}\u{68}"] = 0x1,["\u{64}\u{61}\u{79}"] = 0x1})
|
||||
else
|
||||
print("\u{20}\u{20}\u{38}\u{2d}\u{62}\u{79}\u{74}\u{65}\u{20}\u{74}\u{69}\u{6d}\u{65}\u{5f}\u{74}")
|
||||
assert(tonumber(os.date("\u{25}\u{59}",(0x2 ^ 0x3c))))
|
||||
@ -791,7 +791,7 @@ t=os.time(D)
|
||||
D.year=(D.year - 0x1)
|
||||
;
|
||||
local t1 = os.time(D)
|
||||
assert((math.abs(((os.difftime(t,t1) / ((0x18 * 0xe10))) - 0x16d)) < 0x2))
|
||||
assert((math.abs(((os.difftime(t,t1) / (0x18 * 0xe10)) - 0x16d)) < 0x2))
|
||||
t=os.time()
|
||||
t1=os.time(os.date("\u{2a}\u{74}"))
|
||||
local diff = os.difftime(t1,t)
|
||||
|
||||
@ -173,7 +173,7 @@ print("\u{6c}\u{6f}\u{6e}\u{67}\u{20}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{73}"
|
||||
local x = "\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}\u{30}\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}"
|
||||
assert((string.len(x) == 0x50))
|
||||
local s = ""
|
||||
local k = math.min(0x12c,(((math.maxinteger // 0x50)) // 0x2))
|
||||
local k = math.min(0x12c,((math.maxinteger // 0x50) // 0x2))
|
||||
for n = 0x1, k
|
||||
do
|
||||
s=(s .. x)
|
||||
@ -355,7 +355,7 @@ assert((next(a) ~= nil))
|
||||
local i = 0x0
|
||||
for k,v in pairs(a)
|
||||
do
|
||||
assert(((((((k == 0x1) and (v == x))) or (((k == 0x2) and (v == y)))) or (((k == 0x3) and (v == z)))) or (k == v)))
|
||||
assert((((((k == 0x1) and (v == x)) or ((k == 0x2) and (v == y))) or ((k == 0x3) and (v == z))) or (k == v)))
|
||||
;
|
||||
i=(i + 0x1)
|
||||
end
|
||||
@ -490,7 +490,7 @@ warn("\u{40}\u{6e}\u{6f}\u{72}\u{6d}\u{61}\u{6c}")
|
||||
end
|
||||
print("\u{2b}")
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{75}\u{73}\u{65}\u{72}\u{64}\u{61}\u{74}\u{61}\u{20}\u{47}\u{43}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{75}\u{73}\u{65}\u{72}\u{64}\u{61}\u{74}\u{61}\u{20}\u{47}\u{43}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
local function newproxy
|
||||
(u)
|
||||
@ -744,7 +744,7 @@ local setmetatable,assert,type,print,getmetatable = setmetatable,assert,type,pri
|
||||
local tt = {}
|
||||
tt.__gc=function (o)
|
||||
assert((getmetatable(o) == tt))
|
||||
local a = ("\u{78}\u{75}\u{78}\u{75}" .. (((0xa + 0x3)) .. "\u{6a}\u{6f}\u{61}\u{6f}")),{}
|
||||
local a = ("\u{78}\u{75}\u{78}\u{75}" .. ((0xa + 0x3) .. "\u{6a}\u{6f}\u{61}\u{6f}")),{}
|
||||
___Glob=o
|
||||
setmetatable({},tt)
|
||||
print(("\u{3e}\u{3e}\u{3e}\u{20}\u{63}\u{6c}\u{6f}\u{73}\u{69}\u{6e}\u{67}\u{20}\u{73}\u{74}\u{61}\u{74}\u{65}\u{20}" .. "\u{3c}\u{3c}\u{3c}\u{a}"))
|
||||
|
||||
@ -8,11 +8,11 @@ local U = {}
|
||||
collectgarbage()
|
||||
assert(not (T or (T.gcage(U) == "\u{6f}\u{6c}\u{64}")))
|
||||
U[0x1]={["\u{78}"] = {0xea}}
|
||||
assert(not (T or (((T.gcage(U) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{31}") and (T.gcage(U[0x1]) == "\u{6e}\u{65}\u{77}")))))
|
||||
assert(not (T or ((T.gcage(U) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{31}") and (T.gcage(U[0x1]) == "\u{6e}\u{65}\u{77}"))))
|
||||
collectgarbage("\u{73}\u{74}\u{65}\u{70}",0x0)
|
||||
assert(not (T or (((T.gcage(U) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{32}") and (T.gcage(U[0x1]) == "\u{73}\u{75}\u{72}\u{76}\u{69}\u{76}\u{61}\u{6c}")))))
|
||||
assert(not (T or ((T.gcage(U) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{32}") and (T.gcage(U[0x1]) == "\u{73}\u{75}\u{72}\u{76}\u{69}\u{76}\u{61}\u{6c}"))))
|
||||
collectgarbage("\u{73}\u{74}\u{65}\u{70}",0x0)
|
||||
assert(not (T or (((T.gcage(U) == "\u{6f}\u{6c}\u{64}") and (T.gcage(U[0x1]) == "\u{6f}\u{6c}\u{64}\u{31}")))))
|
||||
assert(not (T or ((T.gcage(U) == "\u{6f}\u{6c}\u{64}") and (T.gcage(U[0x1]) == "\u{6f}\u{6c}\u{64}\u{31}"))))
|
||||
assert((U[0x1].x[0x1] == 0xea))
|
||||
end
|
||||
do
|
||||
@ -76,9 +76,9 @@ local t = setmetatable({},{["\u{5f}\u{5f}\u{6d}\u{6f}\u{64}\u{65}"] = "\u{6b}\u{
|
||||
collectgarbage()
|
||||
assert(not (T or (T.gcage(t) == "\u{6f}\u{6c}\u{64}")))
|
||||
t[0x1]={0xa}
|
||||
assert(not (T or (((T.gcage(t) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{31}") and (T.gccolor(t) == "\u{67}\u{72}\u{61}\u{79}")))))
|
||||
assert(not (T or ((T.gcage(t) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{31}") and (T.gccolor(t) == "\u{67}\u{72}\u{61}\u{79}"))))
|
||||
collectgarbage("\u{73}\u{74}\u{65}\u{70}",0x0)
|
||||
assert(not (T or (((T.gcage(t) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{32}") and (T.gccolor(t) == "\u{62}\u{6c}\u{61}\u{63}\u{6b}")))))
|
||||
assert(not (T or ((T.gcage(t) == "\u{74}\u{6f}\u{75}\u{63}\u{68}\u{65}\u{64}\u{32}") and (T.gccolor(t) == "\u{62}\u{6c}\u{61}\u{63}\u{6b}"))))
|
||||
collectgarbage("\u{73}\u{74}\u{65}\u{70}",0x0)
|
||||
assert(not (T or (T.gcage(t) == "\u{6f}\u{6c}\u{64}")))
|
||||
t[0x1]={0xa}
|
||||
@ -86,7 +86,7 @@ collectgarbage("\u{73}\u{74}\u{65}\u{70}",0x0)
|
||||
assert((t[0x1] == nil))
|
||||
end
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{73}\u{6f}\u{6d}\u{65}\u{20}\u{67}\u{65}\u{6e}\u{65}\u{72}\u{61}\u{74}\u{69}\u{6f}\u{6e}\u{61}\u{6c}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{73}\u{6f}\u{6d}\u{65}\u{20}\u{67}\u{65}\u{6e}\u{65}\u{72}\u{61}\u{74}\u{69}\u{6f}\u{6e}\u{61}\u{6c}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
print("\u{4f}\u{4b}")
|
||||
return
|
||||
end
|
||||
|
||||
@ -206,7 +206,7 @@ for i = 0x3, 0x5, 0x2
|
||||
do
|
||||
for j = 0x1, 0x6
|
||||
do
|
||||
assert((((debug.upvalueid(a[i],0x4) == debug.upvalueid(a[j],0x4))) == ((i == j))))
|
||||
assert(((debug.upvalueid(a[i],0x4) == debug.upvalueid(a[j],0x4)) == (i == j)))
|
||||
end
|
||||
end
|
||||
local function testG
|
||||
|
||||
@ -9,7 +9,7 @@ a=(a .. (a .. (a .. (a .. (a .. (a .. (a .. (a .. (a .. (a .. (a .. (a .. (a ..
|
||||
print(string.format("\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}\u{25}\u{64}\u{20}\u{62}\u{79}\u{74}\u{65}\u{73}",# a))
|
||||
end
|
||||
end)
|
||||
assert(not (st and ((string.find(msg,"\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{6c}\u{65}\u{6e}\u{67}\u{74}\u{68}\u{20}\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}") or string.find(msg,"\u{6e}\u{6f}\u{74}\u{20}\u{65}\u{6e}\u{6f}\u{75}\u{67}\u{68}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}")))))
|
||||
assert(not (st and (string.find(msg,"\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{6c}\u{65}\u{6e}\u{67}\u{74}\u{68}\u{20}\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}") or string.find(msg,"\u{6e}\u{6f}\u{74}\u{20}\u{65}\u{6e}\u{6f}\u{75}\u{67}\u{68}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}"))))
|
||||
print(("\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{6c}\u{65}\u{6e}\u{67}\u{74}\u{68}\u{20}\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}" .. # (a * 0x64)))
|
||||
end
|
||||
print("\u{2b}")
|
||||
@ -22,7 +22,7 @@ local count = 0x0
|
||||
local function f
|
||||
()
|
||||
count=(count + p)
|
||||
if ((count % ((0x80 * p))) == 0x0) then
|
||||
if ((count % (0x80 * p)) == 0x0) then
|
||||
io.stderr:write("\u{28}",(count // (0x2 ^ 0x14)),"\u{20}\u{4d}\u{29}")
|
||||
end
|
||||
return s
|
||||
@ -35,7 +35,7 @@ return st,msg
|
||||
end
|
||||
function controlstruct()
|
||||
print("\u{63}\u{6f}\u{6e}\u{74}\u{72}\u{6f}\u{6c}\u{20}\u{73}\u{74}\u{72}\u{75}\u{63}\u{74}\u{75}\u{72}\u{65}\u{20}\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{6f}\u{6e}\u{67}")
|
||||
local lim = (((((0x1 << 0x18)) - 0x2)) // 0x3)
|
||||
local lim = (((0x1 << 0x18) - 0x2) // 0x3)
|
||||
local s = string.rep("\u{61}\u{20}\u{3d}\u{20}\u{61}\u{20}\u{2b}\u{20}\u{31}\u{a}",lim)
|
||||
s=("\u{77}\u{68}\u{69}\u{6c}\u{65}\u{20}\u{74}\u{72}\u{75}\u{65}\u{20}\u{64}\u{6f}\u{20}" .. (s .. "\u{65}\u{6e}\u{64}"))
|
||||
assert(load(s))
|
||||
@ -56,7 +56,7 @@ end
|
||||
function hugeid()
|
||||
print("\u{6c}\u{6f}\u{61}\u{64}\u{69}\u{6e}\u{67}\u{20}\u{63}\u{68}\u{75}\u{6e}\u{6b}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}\u{68}\u{75}\u{67}\u{65}\u{20}\u{69}\u{64}\u{65}\u{6e}\u{74}\u{69}\u{66}\u{69}\u{65}\u{72}")
|
||||
local st,msg = loadrep("\u{61}","\u{63}\u{68}\u{61}\u{72}\u{73}")
|
||||
assert(not (st and ((string.find(msg,"\u{6c}\u{65}\u{78}\u{69}\u{63}\u{61}\u{6c}\u{20}\u{65}\u{6c}\u{65}\u{6d}\u{65}\u{6e}\u{74}\u{20}\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{6f}\u{6e}\u{67}") or string.find(msg,"\u{6e}\u{6f}\u{74}\u{20}\u{65}\u{6e}\u{6f}\u{75}\u{67}\u{68}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}")))))
|
||||
assert(not (st and (string.find(msg,"\u{6c}\u{65}\u{78}\u{69}\u{63}\u{61}\u{6c}\u{20}\u{65}\u{6c}\u{65}\u{6d}\u{65}\u{6e}\u{74}\u{20}\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{6f}\u{6e}\u{67}") or string.find(msg,"\u{6e}\u{6f}\u{74}\u{20}\u{65}\u{6e}\u{6f}\u{75}\u{67}\u{68}\u{20}\u{6d}\u{65}\u{6d}\u{6f}\u{72}\u{79}"))))
|
||||
print("\u{2b}")
|
||||
end
|
||||
function toomanyinst()
|
||||
@ -87,7 +87,7 @@ end
|
||||
function toomanyconst()
|
||||
print("\u{6c}\u{6f}\u{61}\u{64}\u{69}\u{6e}\u{67}\u{20}\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}\u{20}\u{63}\u{6f}\u{6e}\u{73}\u{74}\u{61}\u{6e}\u{74}\u{73}")
|
||||
loadrepfunc("\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}\u{20}\u{66}\u{6f}\u{6f}\u{20}\u{28}\u{29}\u{20}\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{7b}\u{30}\u{2c}",function (n)
|
||||
return string.char(0x22,(((((n // (0x80 ^ 0x0))) & 0x7f)) + 0x80),(((((n // (0x80 ^ 0x1))) & 0x7f)) + 0x80),(((((n // (0x80 ^ 0x2))) & 0x7f)) + 0x80),(((((n // (0x80 ^ 0x3))) & 0x7f)) + 0x80),(((((n // (0x80 ^ 0x4))) & 0x7f)) + 0x80),0x22,0x2c)
|
||||
return string.char(0x22,(((n // (0x80 ^ 0x0)) & 0x7f) + 0x80),(((n // (0x80 ^ 0x1)) & 0x7f) + 0x80),(((n // (0x80 ^ 0x2)) & 0x7f) + 0x80),(((n // (0x80 ^ 0x3)) & 0x7f) + 0x80),(((n // (0x80 ^ 0x4)) & 0x7f) + 0x80),0x22,0x2c)
|
||||
end)
|
||||
end
|
||||
function toomanystr()
|
||||
|
||||
@ -179,7 +179,7 @@ local a,b = load("\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{34}\u{2e}\u{35}\u
|
||||
assert(string.find(b,"\u{27}\u{34}\u{25}\u{2e}\u{35}\u{25}\u{2e}\u{27}"))
|
||||
assert(os.setlocale("\u{43}"))
|
||||
else
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{70}\u{74}\u{5f}\u{42}\u{52}\u{20}\u{6c}\u{6f}\u{63}\u{61}\u{6c}\u{65}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{76}\u{61}\u{69}\u{6c}\u{61}\u{62}\u{6c}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{64}\u{65}\u{63}\u{69}\u{6d}\u{61}\u{6c}\u{20}\u{70}\u{6f}\u{69}\u{6e}\u{74}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{70}\u{74}\u{5f}\u{42}\u{52}\u{20}\u{6c}\u{6f}\u{63}\u{61}\u{6c}\u{65}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{76}\u{61}\u{69}\u{6c}\u{61}\u{62}\u{6c}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{64}\u{65}\u{63}\u{69}\u{6d}\u{61}\u{6c}\u{20}\u{70}\u{6f}\u{69}\u{6e}\u{74}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
end
|
||||
local s = "\u{61}\u{20}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}\u{d}\u{20}\u{61}\u{6e}\u{64}\u{20}\u{a}\u{20}\u{61}\u{6e}\u{64}\u{20}\u{d}\u{a}\u{20}\u{61}\u{6e}\u{64}\u{20}\u{a}\u{d}"
|
||||
local c = string.format("\u{72}\u{65}\u{74}\u{75}\u{72}\u{6e}\u{20}\u{25}\u{71}",s)
|
||||
|
||||
@ -56,7 +56,7 @@ local _6,_7,_8,_9,_10
|
||||
local x = 0x3
|
||||
local b = a
|
||||
local c,d = a,b
|
||||
if ((d == b)) then
|
||||
if (d == b) then
|
||||
local x = "\u{71}"
|
||||
x=b
|
||||
assert((x == 0x2))
|
||||
@ -221,7 +221,7 @@ end
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{6f}\u{2d}\u{62}\u{65}\u{2d}\u{63}\u{6c}\u{6f}\u{73}\u{65}\u{64}\u{20}\u{76}\u{61}\u{72}\u{69}\u{61}\u{62}\u{6c}\u{65}\u{73}")
|
||||
local function stack
|
||||
(n)
|
||||
n=((((n == 0x0)) or stack((n - 0x1))))
|
||||
n=((n == 0x0) or stack((n - 0x1)))
|
||||
end
|
||||
local function func2close
|
||||
(f,x,y)
|
||||
@ -688,7 +688,7 @@ do
|
||||
local trace = {}
|
||||
local function hook
|
||||
(event)
|
||||
trace[# (trace + 0x1)]=(event .. ("\u{20}" .. ((debug.getinfo(0x2).name or "\u{3f}"))))
|
||||
trace[# (trace + 0x1)]=(event .. ("\u{20}" .. (debug.getinfo(0x2).name or "\u{3f}")))
|
||||
end
|
||||
local x = func2close(function (_,msg)
|
||||
trace[# (trace + 0x1)]="\u{78}"
|
||||
@ -825,14 +825,14 @@ coroutine.yield("\u{7a}")
|
||||
return 0x64,0xc8
|
||||
end)
|
||||
local y <close> = func2close(function (_,msg)
|
||||
assert(((msg == err) or (((msg == nil) and (err == 0x1)))))
|
||||
assert(((msg == err) or ((msg == nil) and (err == 0x1))))
|
||||
coroutine.yield("\u{79}")
|
||||
if err then
|
||||
error((err + 0x14))
|
||||
end
|
||||
end)
|
||||
local x <close> = func2close(function (_,msg)
|
||||
assert(((msg == err) or (((msg == nil) and (err == 0x1)))))
|
||||
assert(((msg == err) or ((msg == nil) and (err == 0x1))))
|
||||
coroutine.yield("\u{78}")
|
||||
return 0x64,0xc8
|
||||
end)
|
||||
|
||||
@ -2,8 +2,8 @@ print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{6e}\u{75}\u{6d}\u{62}\
|
||||
local minint <const> = math.mininteger
|
||||
local maxint <const> = math.maxinteger
|
||||
local intbits <const> = (math.floor((math.log(maxint,0x2) + 0.5)) + 0x1)
|
||||
assert((((0x1 << intbits)) == 0x0))
|
||||
assert((minint == (0x1 << ((intbits - 0x1)))))
|
||||
assert(((0x1 << intbits) == 0x0))
|
||||
assert((minint == (0x1 << (intbits - 0x1))))
|
||||
assert((maxint == (minint - 0x1)))
|
||||
local floatbits = 0x18
|
||||
do
|
||||
@ -15,7 +15,7 @@ end
|
||||
end
|
||||
local function isNaN
|
||||
(x)
|
||||
return ((x ~= x))
|
||||
return (x ~= x)
|
||||
end
|
||||
assert(isNaN((0x0 / 0x0)))
|
||||
assert(not isNaN((0x1 / 0x0)))
|
||||
@ -133,15 +133,15 @@ assert(eqT((x // y),- 3.0))
|
||||
end
|
||||
assert(((maxint // maxint) == 0x1))
|
||||
assert(((maxint // 0x1) == maxint))
|
||||
assert(((((maxint - 0x1)) // maxint) == 0x0))
|
||||
assert(((maxint // ((maxint - 0x1))) == 0x1))
|
||||
assert((((maxint - 0x1) // maxint) == 0x0))
|
||||
assert(((maxint // (maxint - 0x1)) == 0x1))
|
||||
assert(((minint // minint) == 0x1))
|
||||
assert(((minint // minint) == 0x1))
|
||||
assert(((((minint + 0x1)) // minint) == 0x0))
|
||||
assert(((minint // ((minint + 0x1))) == 0x1))
|
||||
assert((((minint + 0x1) // minint) == 0x0))
|
||||
assert(((minint // (minint + 0x1)) == 0x1))
|
||||
assert(((minint // 0x1) == minint))
|
||||
assert((minint // - (0x1 == - minint)))
|
||||
assert((minint // - (0x2 == (0x2 ^ ((intbits - 0x2))))))
|
||||
assert((minint // - (0x2 == (0x2 ^ (intbits - 0x2)))))
|
||||
assert((maxint // - (0x1 == - maxint)))
|
||||
do
|
||||
assert((0x2 ^ - (0x3 == (0x1 / (0x2 ^ 0x3)))))
|
||||
@ -157,25 +157,25 @@ end
|
||||
end
|
||||
end
|
||||
if (floatbits < intbits) then
|
||||
assert(((2.0 ^ floatbits) == ((0x1 << floatbits))))
|
||||
assert((((2.0 ^ floatbits) - 1.0) == (((0x1 << floatbits)) - 1.0)))
|
||||
assert((((2.0 ^ floatbits) - 1.0) ~= ((0x1 << floatbits))))
|
||||
assert((((2.0 ^ floatbits) + 1.0) ~= (((0x1 << floatbits)) + 0x1)))
|
||||
assert(((2.0 ^ floatbits) == (0x1 << floatbits)))
|
||||
assert((((2.0 ^ floatbits) - 1.0) == ((0x1 << floatbits) - 1.0)))
|
||||
assert((((2.0 ^ floatbits) - 1.0) ~= (0x1 << floatbits)))
|
||||
assert((((2.0 ^ floatbits) + 1.0) ~= ((0x1 << floatbits) + 0x1)))
|
||||
else
|
||||
assert((maxint == (maxint + 0.0)))
|
||||
assert(((maxint - 0x1) == (maxint - 1.0)))
|
||||
assert(((minint + 0x1) == (minint + 1.0)))
|
||||
assert((maxint ~= (maxint - 1.0)))
|
||||
end
|
||||
assert(((maxint + 0.0) == ((2.0 ^ ((intbits - 0x1))) - 1.0)))
|
||||
assert(((maxint + 0.0) == ((2.0 ^ (intbits - 0x1)) - 1.0)))
|
||||
assert(((minint + 0.0) == minint))
|
||||
assert(((minint + 0.0) == - (2.0 ^ ((intbits - 0x1)))))
|
||||
assert(((minint + 0.0) == - (2.0 ^ (intbits - 0x1))))
|
||||
assert((0x1 < 1.1))
|
||||
;
|
||||
assert(not ((0x1 < 0.9)))
|
||||
assert(not (0x1 < 0.9))
|
||||
assert((0x1 <= 1.1))
|
||||
;
|
||||
assert(not ((0x1 <= 0.9)))
|
||||
assert(not (0x1 <= 0.9))
|
||||
assert(- (0x1 < - 0.9))
|
||||
;
|
||||
assert(not (- (0x1 < - 1.1)))
|
||||
@ -190,17 +190,17 @@ assert(- (0x1 <= - 0.9))
|
||||
assert(not (- (0x1 <= - 1.1)))
|
||||
assert((minint <= (minint + 0.0)))
|
||||
assert(((minint + 0.0) <= minint))
|
||||
assert(not ((minint < (minint + 0.0))))
|
||||
assert(not (((minint + 0.0) < minint)))
|
||||
assert(not (minint < (minint + 0.0)))
|
||||
assert(not ((minint + 0.0) < minint))
|
||||
assert((maxint < (minint * - 1.0)))
|
||||
assert((maxint <= (minint * - 1.0)))
|
||||
do
|
||||
local fmaxi1 = (0x2 ^ ((intbits - 0x1)))
|
||||
local fmaxi1 = (0x2 ^ (intbits - 0x1))
|
||||
assert((maxint < fmaxi1))
|
||||
assert((maxint <= fmaxi1))
|
||||
assert(not ((fmaxi1 <= maxint)))
|
||||
assert((minint <= - (0x2 ^ ((intbits - 0x1)))))
|
||||
assert(- ((0x2 ^ ((intbits - 0x1))) <= minint))
|
||||
assert(not (fmaxi1 <= maxint))
|
||||
assert((minint <= - (0x2 ^ (intbits - 0x1))))
|
||||
assert(- ((0x2 ^ (intbits - 0x1)) <= minint))
|
||||
end
|
||||
if (floatbits < intbits) then
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{6f}\u{72}\u{64}\u{65}\u{72}\u{20}\u{28}\u{66}\u{6c}\u{6f}\u{61}\u{74}\u{73}\u{20}\u{63}\u{61}\u{6e}\u{6e}\u{6f}\u{74}\u{20}\u{72}\u{65}\u{70}\u{72}\u{65}\u{73}\u{65}\u{6e}\u{74}\u{20}\u{61}\u{6c}\u{6c}\u{20}\u{69}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}\u{73}\u{29}")
|
||||
@ -208,12 +208,12 @@ local fmax = (0x2 ^ floatbits)
|
||||
local ifmax = (fmax | 0x0)
|
||||
assert((fmax < (ifmax + 0x1)))
|
||||
assert(((fmax - 0x1) < ifmax))
|
||||
assert(- (((fmax - 0x1)) > - ifmax))
|
||||
assert(not ((fmax <= (ifmax - 0x1))))
|
||||
assert(- (fmax > - ((ifmax + 0x1))))
|
||||
assert(not (- (fmax >= - ((ifmax - 0x1)))))
|
||||
assert(- ((fmax - 0x1) > - ifmax))
|
||||
assert(not (fmax <= (ifmax - 0x1)))
|
||||
assert(- (fmax > - (ifmax + 0x1)))
|
||||
assert(not (- (fmax >= - (ifmax - 0x1))))
|
||||
assert((((fmax / 0x2) - 0.5) < (ifmax // 0x2)))
|
||||
assert(- ((((fmax / 0x2) - 0.5)) > - (ifmax // 0x2)))
|
||||
assert(- (((fmax / 0x2) - 0.5) > - (ifmax // 0x2)))
|
||||
assert((maxint < (0x2 ^ intbits)))
|
||||
assert((minint > - (0x2 ^ intbits)))
|
||||
assert((maxint <= (0x2 ^ intbits)))
|
||||
@ -224,40 +224,40 @@ assert((maxint < (maxint + 1.0)))
|
||||
assert((maxint < (maxint + 0.5)))
|
||||
assert(((maxint - 1.0) < maxint))
|
||||
assert(((maxint - 0.5) < maxint))
|
||||
assert(not (((maxint + 0.0) < maxint)))
|
||||
assert(not ((maxint + 0.0) < maxint))
|
||||
assert(((maxint + 0.0) <= maxint))
|
||||
assert(not ((maxint < (maxint + 0.0))))
|
||||
assert(not (maxint < (maxint + 0.0)))
|
||||
assert(((maxint + 0.0) <= maxint))
|
||||
assert((maxint <= (maxint + 0.0)))
|
||||
assert(not (((maxint + 1.0) <= maxint)))
|
||||
assert(not (((maxint + 0.5) <= maxint)))
|
||||
assert(not ((maxint <= (maxint - 1.0))))
|
||||
assert(not ((maxint <= (maxint - 0.5))))
|
||||
assert(not ((maxint + 1.0) <= maxint))
|
||||
assert(not ((maxint + 0.5) <= maxint))
|
||||
assert(not (maxint <= (maxint - 1.0)))
|
||||
assert(not (maxint <= (maxint - 0.5)))
|
||||
assert((minint < (minint + 1.0)))
|
||||
assert((minint < (minint + 0.5)))
|
||||
assert((minint <= (minint + 0.5)))
|
||||
assert(((minint - 1.0) < minint))
|
||||
assert(((minint - 1.0) <= minint))
|
||||
assert(not (((minint + 0.0) < minint)))
|
||||
assert(not (((minint + 0.5) < minint)))
|
||||
assert(not ((minint < (minint + 0.0))))
|
||||
assert(not ((minint + 0.0) < minint))
|
||||
assert(not ((minint + 0.5) < minint))
|
||||
assert(not (minint < (minint + 0.0)))
|
||||
assert(((minint + 0.0) <= minint))
|
||||
assert((minint <= (minint + 0.0)))
|
||||
assert(not (((minint + 1.0) <= minint)))
|
||||
assert(not (((minint + 0.5) <= minint)))
|
||||
assert(not ((minint <= (minint - 1.0))))
|
||||
assert(not ((minint + 1.0) <= minint))
|
||||
assert(not ((minint + 0.5) <= minint))
|
||||
assert(not (minint <= (minint - 1.0)))
|
||||
end
|
||||
do
|
||||
local NaN <const> = (0x0 / 0x0)
|
||||
assert(not ((NaN < 0x0)))
|
||||
assert(not ((NaN > minint)))
|
||||
assert(not ((NaN <= - 0x9)))
|
||||
assert(not ((NaN <= maxint)))
|
||||
assert(not ((NaN < maxint)))
|
||||
assert(not ((minint <= NaN)))
|
||||
assert(not ((minint < NaN)))
|
||||
assert(not ((0x4 <= NaN)))
|
||||
assert(not ((0x4 < NaN)))
|
||||
assert(not (NaN < 0x0))
|
||||
assert(not (NaN > minint))
|
||||
assert(not (NaN <= - 0x9))
|
||||
assert(not (NaN <= maxint))
|
||||
assert(not (NaN < maxint))
|
||||
assert(not (minint <= NaN))
|
||||
assert(not (minint < NaN))
|
||||
assert(not (0x4 <= NaN))
|
||||
assert(not (0x4 < NaN))
|
||||
end
|
||||
local function checkcompt
|
||||
(msg,code)
|
||||
@ -280,10 +280,10 @@ if (floatbits < intbits) then
|
||||
assert(((maxint + 1.0) == (maxint + 0.0)))
|
||||
assert(((minint - 1.0) == (minint + 0.0)))
|
||||
checkerror(msgf2i,f2i,(maxint + 0.0))
|
||||
assert((f2i((2.0 ^ ((intbits - 0x2)))) == (0x1 << ((intbits - 0x2)))))
|
||||
assert((f2i(- (2.0 ^ ((intbits - 0x2)))) == - ((0x1 << ((intbits - 0x2))))))
|
||||
assert((((((2.0 ^ ((floatbits - 0x1))) + 1.0)) // 0x1) == (((0x1 << ((floatbits - 0x1)))) + 0x1)))
|
||||
local mf = ((maxint - ((0x1 << ((floatbits - intbits))))) + 0x1)
|
||||
assert((f2i((2.0 ^ (intbits - 0x2))) == (0x1 << (intbits - 0x2))))
|
||||
assert((f2i(- (2.0 ^ (intbits - 0x2))) == - (0x1 << (intbits - 0x2))))
|
||||
assert(((((2.0 ^ (floatbits - 0x1)) + 1.0) // 0x1) == ((0x1 << (floatbits - 0x1)) + 0x1)))
|
||||
local mf = ((maxint - (0x1 << (floatbits - intbits))) + 0x1)
|
||||
assert((f2i((mf + 0.0)) == mf))
|
||||
mf=(mf + 0x1)
|
||||
assert((f2i((mf + 0.0)) ~= mf))
|
||||
@ -335,9 +335,9 @@ assert(((((tonumber("\u{2b}\u{30}\u{2e}\u{30}\u{31}") == (0x1 / 0x64)) and (tonu
|
||||
assert(not (tonumber("\u{2b}\u{20}\u{30}\u{2e}\u{30}\u{31}") and not (tonumber("\u{2b}\u{2e}\u{65}\u{31}") and not (tonumber("\u{31}\u{65}") and not (tonumber("\u{31}\u{2e}\u{30}\u{65}\u{2b}") and not tonumber("\u{2e}"))))))
|
||||
assert((tonumber("\u{2d}\u{30}\u{31}\u{32}") == - (0xa - 0x2)))
|
||||
assert((tonumber("\u{2d}\u{31}\u{2e}\u{32}\u{65}\u{32}") == - - - 0x78))
|
||||
assert((tonumber("\u{30}\u{78}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}") == (((0x1 << ((0x4 * 0xc)))) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. string.rep("\u{66}",((intbits // 0x4))))) == - 0x1))
|
||||
assert((tonumber(("\u{2d}\u{30}\u{78}" .. string.rep("\u{66}",((intbits // 0x4))))) == 0x1))
|
||||
assert((tonumber("\u{30}\u{78}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}") == ((0x1 << (0x4 * 0xc)) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. string.rep("\u{66}",(intbits // 0x4)))) == - 0x1))
|
||||
assert((tonumber(("\u{2d}\u{30}\u{78}" .. string.rep("\u{66}",(intbits // 0x4)))) == 0x1))
|
||||
assert((tonumber("\u{20}\u{20}\u{30}\u{30}\u{31}\u{30}\u{31}\u{30}\u{20}\u{20}",0x2) == 0xa))
|
||||
assert((tonumber("\u{20}\u{20}\u{30}\u{30}\u{31}\u{30}\u{31}\u{30}\u{20}\u{20}",0xa) == 0x3f2))
|
||||
assert((tonumber("\u{20}\u{20}\u{2d}\u{31}\u{30}\u{31}\u{30}\u{20}\u{20}",0x2) == - 0xa))
|
||||
@ -345,11 +345,11 @@ assert((tonumber("\u{31}\u{30}",0x24) == 0x24))
|
||||
assert((tonumber("\u{20}\u{20}\u{2d}\u{31}\u{30}\u{20}\u{20}",0x24) == - 0x24))
|
||||
assert((tonumber("\u{20}\u{20}\u{2b}\u{31}\u{5a}\u{20}\u{20}",0x24) == (0x24 + 0x23)))
|
||||
assert((tonumber("\u{20}\u{20}\u{2d}\u{31}\u{7a}\u{20}\u{20}",0x24) == - (0x24 + - 0x23)))
|
||||
assert((tonumber("\u{2d}\u{66}\u{46}\u{66}\u{61}",0x10) == - ((0xa + ((0x10 * ((0xf + ((0x10 * ((0xf + ((0x10 * 0xf))))))))))))))
|
||||
assert(((tonumber(string.rep("\u{31}",((intbits - 0x2))),0x2) + 0x1) == (0x2 ^ ((intbits - 0x2)))))
|
||||
assert(((tonumber("\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) + 0x1) == ((0x1 << 0x20))))
|
||||
assert(((tonumber("\u{30}\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) + 0x1) == ((0x1 << 0x20))))
|
||||
assert(((tonumber("\u{2d}\u{30}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) - 0x1) == - ((0x1 << 0x28))))
|
||||
assert((tonumber("\u{2d}\u{66}\u{46}\u{66}\u{61}",0x10) == - (0xa + (0x10 * (0xf + (0x10 * (0xf + (0x10 * 0xf))))))))
|
||||
assert(((tonumber(string.rep("\u{31}",(intbits - 0x2)),0x2) + 0x1) == (0x2 ^ (intbits - 0x2))))
|
||||
assert(((tonumber("\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) + 0x1) == (0x1 << 0x20)))
|
||||
assert(((tonumber("\u{30}\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) + 0x1) == (0x1 << 0x20)))
|
||||
assert(((tonumber("\u{2d}\u{30}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{46}\u{46}\u{46}\u{46}",0x10) - 0x1) == - (0x1 << 0x28)))
|
||||
for i = 0x2, 0x24
|
||||
do
|
||||
local i2 = (i * i)
|
||||
@ -357,10 +357,10 @@ local i10 = ((((i2 * i2) * i2) * i2) * i2)
|
||||
assert((tonumber("\u{9}\u{31}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{9}",i) == i10))
|
||||
end
|
||||
if not _soft then
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0xd) .. "\u{2e}\u{30}"))) == ((2.0 ^ ((0x4 * 0xd))) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x96) .. "\u{2e}\u{30}"))) == ((2.0 ^ ((0x4 * 0x96))) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x12c) .. "\u{2e}\u{30}"))) == ((2.0 ^ ((0x4 * 0x12c))) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x1f4) .. "\u{2e}\u{30}"))) == ((2.0 ^ ((0x4 * 0x1f4))) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0xd) .. "\u{2e}\u{30}"))) == ((2.0 ^ (0x4 * 0xd)) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x96) .. "\u{2e}\u{30}"))) == ((2.0 ^ (0x4 * 0x96)) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x12c) .. "\u{2e}\u{30}"))) == ((2.0 ^ (0x4 * 0x12c)) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{66}",0x1f4) .. "\u{2e}\u{30}"))) == ((2.0 ^ (0x4 * 0x1f4)) - 0x1)))
|
||||
assert((tonumber(("\u{30}\u{78}\u{33}\u{2e}" .. string.rep("\u{30}",0x3e8))) == 0x3))
|
||||
assert((tonumber(("\u{30}\u{78}" .. (string.rep("\u{30}",0x3e8) .. "\u{61}"))) == 0xa))
|
||||
assert((tonumber(("\u{30}\u{78}\u{30}\u{2e}" .. (string.rep("\u{30}",0xd) .. "\u{31}"))) == (2.0 ^ (- (0x4 * 0xe)))))
|
||||
@ -413,10 +413,10 @@ assert(not tonumber("\u{30}\u{78}\u{30}\u{2e}\u{35}\u{31}\u{70}"))
|
||||
assert(not tonumber("\u{30}\u{78}\u{35}\u{70}\u{2b}\u{2d}\u{32}"))
|
||||
assert((((0x10 == 0x10) and (0xfff == ((0x2 ^ 0xc) - 0x1))) and (0xfb == 0xfb)))
|
||||
assert(((0.0 == 0x0) and (0.0 == 0x0)))
|
||||
assert((0xffffffff == (((0x1 << 0x20)) - 0x1)))
|
||||
assert((0xffffffff == ((0x1 << 0x20) - 0x1)))
|
||||
assert((tonumber("\u{2b}\u{30}\u{78}\u{32}") == 0x2))
|
||||
assert((tonumber("\u{2d}\u{30}\u{78}\u{61}\u{41}") == - 0xaa))
|
||||
assert((tonumber("\u{2d}\u{30}\u{78}\u{66}\u{66}\u{46}\u{46}\u{46}\u{66}\u{66}\u{66}") == - (((0x1 << 0x20)) + 0x1)))
|
||||
assert((tonumber("\u{2d}\u{30}\u{78}\u{66}\u{66}\u{46}\u{46}\u{46}\u{66}\u{66}\u{66}") == - ((0x1 << 0x20) + 0x1)))
|
||||
assert((((0.0 == 0x0) and ((0xe + 0x1) == 0xf)) and ((0xe - 0x1) == 0xd)))
|
||||
assert((tonumber("\u{20}\u{20}\u{30}\u{78}\u{32}\u{2e}\u{35}\u{20}\u{20}") == (0x25 / 0x10)))
|
||||
assert((tonumber("\u{20}\u{20}\u{2d}\u{30}\u{78}\u{32}\u{2e}\u{35}\u{20}\u{20}") == - (0x25 / 0x10)))
|
||||
@ -435,15 +435,15 @@ assert(((tonumber("\u{31}\u{31}\u{31}\u{31}\u{31}\u{31}\u{31}\u{31}\u{31}\u{31}"
|
||||
assert(((1e-31 > 9e-32) and (9e29 < 1e30)))
|
||||
assert((0.123456 > 0.123455))
|
||||
assert((tonumber("\u{2b}\u{31}\u{2e}\u{32}\u{33}\u{45}\u{31}\u{38}") == (1.23 * (10.0 ^ 0x12))))
|
||||
assert(not ((((0x1 < 0x1)) and ((0x1 < 0x2))) and not ((0x2 < 0x1))))
|
||||
assert(not (((("\u{61}" < "\u{61}")) and (("\u{61}" < "\u{62}"))) and not (("\u{62}" < "\u{61}"))))
|
||||
assert(((((0x1 <= 0x1)) and ((0x1 <= 0x2))) and not ((0x2 <= 0x1))))
|
||||
assert((((("\u{61}" <= "\u{61}")) and (("\u{61}" <= "\u{62}"))) and not (("\u{62}" <= "\u{61}"))))
|
||||
assert(not (((0x1 > 0x1)) and not (((0x1 > 0x2)) and ((0x2 > 0x1)))))
|
||||
assert(not ((("\u{61}" > "\u{61}")) and not ((("\u{61}" > "\u{62}")) and (("\u{62}" > "\u{61}")))))
|
||||
assert((((0x1 >= 0x1)) and not (((0x1 >= 0x2)) and ((0x2 >= 0x1)))))
|
||||
assert(((("\u{61}" >= "\u{61}")) and not ((("\u{61}" >= "\u{62}")) and (("\u{62}" >= "\u{61}")))))
|
||||
assert((((1.3 < 1.4) and (1.3 <= 1.4)) and not (((1.3 < 1.3)) and (1.3 <= 1.3))))
|
||||
assert(not (((0x1 < 0x1) and (0x1 < 0x2)) and not (0x2 < 0x1)))
|
||||
assert(not ((("\u{61}" < "\u{61}") and ("\u{61}" < "\u{62}")) and not ("\u{62}" < "\u{61}")))
|
||||
assert((((0x1 <= 0x1) and (0x1 <= 0x2)) and not (0x2 <= 0x1)))
|
||||
assert(((("\u{61}" <= "\u{61}") and ("\u{61}" <= "\u{62}")) and not ("\u{62}" <= "\u{61}")))
|
||||
assert(not ((0x1 > 0x1) and not ((0x1 > 0x2) and (0x2 > 0x1))))
|
||||
assert(not (("\u{61}" > "\u{61}") and not (("\u{61}" > "\u{62}") and ("\u{62}" > "\u{61}"))))
|
||||
assert(((0x1 >= 0x1) and not ((0x1 >= 0x2) and (0x2 >= 0x1))))
|
||||
assert((("\u{61}" >= "\u{61}") and not (("\u{61}" >= "\u{62}") and ("\u{62}" >= "\u{61}"))))
|
||||
assert((((1.3 < 1.4) and (1.3 <= 1.4)) and not ((1.3 < 1.3) and (1.3 <= 1.3))))
|
||||
assert(eqT(- (0x4 % 0x3),0x2))
|
||||
assert(eqT((0x4 % - 0x3),- 0x2))
|
||||
assert(eqT(- (4.0 % 0x3),2.0))
|
||||
@ -465,19 +465,19 @@ assert(((math.pi - (math.pi % 1e-3)) == 3.141))
|
||||
do
|
||||
local i,j = 0x0,0x4e20
|
||||
while (i < j) do
|
||||
local m = (((i + j)) // 0x2)
|
||||
local m = ((i + j) // 0x2)
|
||||
if (0xa ^ - (m > 0x0)) then
|
||||
i=(m + 0x1)
|
||||
else
|
||||
j=m
|
||||
end
|
||||
end
|
||||
local b = (0xa ^ - ((i - ((i // 0xa)))))
|
||||
local b = (0xa ^ - (i - (i // 0xa)))
|
||||
assert(((b > 0x0) and ((b * b) == 0x0)))
|
||||
local delta = (b / 0x3e8)
|
||||
assert(eq((((2.1 * b)) % ((0x2 * b))),((0.1 * b)),delta))
|
||||
assert(eq(((- (2.1 * b)) % ((0x2 * b))),(((0x2 * b)) - ((0.1 * b))),delta))
|
||||
assert(eq((((2.1 * b)) % (- (0x2 * b))),(((0.1 * b)) - ((0x2 * b))),delta))
|
||||
assert(eq(((2.1 * b) % (0x2 * b)),(0.1 * b),delta))
|
||||
assert(eq(((- (2.1 * b)) % (0x2 * b)),((0x2 * b) - (0.1 * b)),delta))
|
||||
assert(eq(((2.1 * b) % (- (0x2 * b))),((0.1 * b) - (0x2 * b)),delta))
|
||||
assert(eq(((- (2.1 * b)) % (- (0x2 * b))),(- (0.1 * b)),delta))
|
||||
end
|
||||
for i = - 0xa, 0xa
|
||||
@ -485,7 +485,7 @@ do
|
||||
for j = - 0xa, 0xa
|
||||
do
|
||||
if (j ~= 0x0) then
|
||||
assert(((((i + 0.0)) % j) == (i % j)))
|
||||
assert((((i + 0.0) % j) == (i % j)))
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -494,14 +494,14 @@ do
|
||||
for j = - 0xa, 0xa
|
||||
do
|
||||
if (j ~= 0x0) then
|
||||
assert(((((0x2 ^ i)) % j) == (((0x1 << i)) % j)))
|
||||
assert((((0x2 ^ i) % j) == ((0x1 << i) % j)))
|
||||
end
|
||||
end
|
||||
end
|
||||
do
|
||||
local i = 0xa
|
||||
while (((0x1 << i)) > 0x0) do
|
||||
assert(((((0x1 << i)) % 0x3) == ((i % 0x2) + 0x1)))
|
||||
while ((0x1 << i) > 0x0) do
|
||||
assert((((0x1 << i) % 0x3) == ((i % 0x2) + 0x1)))
|
||||
i=(i + 0x1)
|
||||
end
|
||||
i=0xa
|
||||
@ -512,8 +512,8 @@ end
|
||||
end
|
||||
assert(eqT((minint % minint),0x0))
|
||||
assert(eqT((maxint % maxint),0x0))
|
||||
assert(((((minint + 0x1)) % minint) == (minint + 0x1)))
|
||||
assert(((((maxint - 0x1)) % maxint) == (maxint - 0x1)))
|
||||
assert((((minint + 0x1) % minint) == (minint + 0x1)))
|
||||
assert((((maxint - 0x1) % maxint) == (maxint - 0x1)))
|
||||
assert(((minint % maxint) == (maxint - 0x1)))
|
||||
assert((minint % - (0x1 == 0x0)))
|
||||
assert((minint % - (0x2 == 0x0)))
|
||||
@ -558,7 +558,7 @@ assert(eq(math.log(0x2,0xa),(math.log(0x2) / math.log(0xa))))
|
||||
assert(eq(math.log(0x2,0x2),0x1))
|
||||
assert(eq(math.log(0x9,0x3),0x2))
|
||||
assert(eq(math.exp(0x0),0x1))
|
||||
assert(eq(math.sin(0xa),math.sin((0xa % ((0x2 * math.pi))))))
|
||||
assert(eq(math.sin(0xa),math.sin((0xa % (0x2 * math.pi)))))
|
||||
assert((tonumber("\u{20}\u{31}\u{2e}\u{33}\u{65}\u{2d}\u{32}\u{20}") == 0.013))
|
||||
assert((tonumber("\u{20}\u{2d}\u{31}\u{2e}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{30}\u{31}\u{20}") == - 1.00000000000001))
|
||||
assert((0x800001 + - (0x800001 == 0x0)))
|
||||
@ -616,7 +616,7 @@ local mi = math.fmod(i,j)
|
||||
local mf = math.fmod((i + 0.0),j)
|
||||
assert((mi == mf))
|
||||
assert(((math.type(mi) == "\u{69}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}") and (math.type(mf) == "\u{66}\u{6c}\u{6f}\u{61}\u{74}")))
|
||||
if (((((i >= 0x0) and (j >= 0x0))) or (((i <= 0x0) and (j <= 0x0)))) or (mi == 0x0)) then
|
||||
if ((((i >= 0x0) and (j >= 0x0)) or ((i <= 0x0) and (j <= 0x0))) or (mi == 0x0)) then
|
||||
assert(eqT(mi,(i % j)))
|
||||
end
|
||||
end
|
||||
@ -662,13 +662,13 @@ assert((mz == z))
|
||||
assert((((0x1 / mz) < 0x0) and (0x0 < (0x1 / z))))
|
||||
local NaN <const> = (inf - inf)
|
||||
assert((NaN ~= NaN))
|
||||
assert(not ((NaN < NaN)))
|
||||
assert(not ((NaN <= NaN)))
|
||||
assert(not ((NaN > NaN)))
|
||||
assert(not ((NaN >= NaN)))
|
||||
assert(not (((0x0 < NaN)) and not ((NaN < 0x0))))
|
||||
assert(not (NaN < NaN))
|
||||
assert(not (NaN <= NaN))
|
||||
assert(not (NaN > NaN))
|
||||
assert(not (NaN >= NaN))
|
||||
assert(not ((0x0 < NaN) and not (NaN < 0x0)))
|
||||
local NaN1 <const> = (0x0 / 0x0)
|
||||
assert(((NaN ~= NaN1) and not (((NaN <= NaN1)) and not ((NaN1 <= NaN)))))
|
||||
assert(((NaN ~= NaN1) and not ((NaN <= NaN1) and not (NaN1 <= NaN))))
|
||||
local a = {}
|
||||
assert(not pcall(rawset,a,NaN,0x1))
|
||||
assert((a[NaN] == undef))
|
||||
@ -683,20 +683,20 @@ print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{27}\u{6d}\u{61}\u{74}\
|
||||
local random,max,min = math.random,math.max,math.min
|
||||
local function testnear
|
||||
(val,ref,tol)
|
||||
return ((math.abs((val - ref)) < (ref * tol)))
|
||||
return (math.abs((val - ref)) < (ref * tol))
|
||||
end
|
||||
do
|
||||
local h <const> = 0x7a7040a5
|
||||
local l <const> = 0xa323c9d6
|
||||
math.randomseed(0x3ef)
|
||||
local res = ((((h << 0x20) | l)) & ~ (~ (0x0 << intbits)))
|
||||
local res = (((h << 0x20) | l) & ~ (~ (0x0 << intbits)))
|
||||
assert((random(0x0) == res))
|
||||
math.randomseed(0x3ef,0x0)
|
||||
local res
|
||||
if (floatbits <= 0x20) then
|
||||
res=(((h >> ((0x20 - floatbits)))) % (0x2 ^ 0x20))
|
||||
res=((h >> (0x20 - floatbits)) % (0x2 ^ 0x20))
|
||||
else
|
||||
res=((((h % (0x2 ^ 0x20))) * (0x2 ^ ((floatbits - 0x20)))) + ((((l >> ((0x40 - floatbits)))) % (0x2 ^ 0x20))))
|
||||
res=(((h % (0x2 ^ 0x20)) * (0x2 ^ (floatbits - 0x20))) + ((l >> (0x40 - floatbits)) % (0x2 ^ 0x20)))
|
||||
end
|
||||
local rand = random()
|
||||
assert(eq(rand,0.4782753376376966,(0x2 ^ - floatbits)))
|
||||
@ -732,15 +732,15 @@ up=max(up,t)
|
||||
low=min(low,t)
|
||||
assert((((t * mult) % 0x1) == 0x0))
|
||||
local bit = (i % randbits)
|
||||
if ((((t * (0x2 ^ bit))) % 0x1) >= 0.5) then
|
||||
if (((t * (0x2 ^ bit)) % 0x1) >= 0.5) then
|
||||
counts[(bit + 0x1)]=(counts[(bit + 0x1)] + 0x1)
|
||||
end
|
||||
end
|
||||
totalrounds=(totalrounds + rounds)
|
||||
if not ((eq(up,0x1,1e-3) and eq(low,0x0,1e-3))) then
|
||||
if not (eq(up,0x1,1e-3) and eq(low,0x0,1e-3)) then
|
||||
goto doagain
|
||||
end
|
||||
local expected = (((totalrounds / randbits) / 0x2))
|
||||
local expected = ((totalrounds / randbits) / 0x2)
|
||||
for i = 0x1, randbits
|
||||
do
|
||||
if not testnear(counts[i],expected,0.1) then
|
||||
@ -766,21 +766,21 @@ local t = random(0x0)
|
||||
up=max(up,t)
|
||||
low=min(low,t)
|
||||
local bit = (i % intbits)
|
||||
counts[(bit + 0x1)]=(counts[(bit + 0x1)] + ((((t >> bit)) & 0x1)))
|
||||
counts[(bit + 0x1)]=(counts[(bit + 0x1)] + ((t >> bit) & 0x1))
|
||||
end
|
||||
totalrounds=(totalrounds + rounds)
|
||||
local lim = (maxint >> 0xa)
|
||||
if not ((((maxint - up) < lim) and ((low - minint) < lim))) then
|
||||
if not (((maxint - up) < lim) and ((low - minint) < lim)) then
|
||||
goto doagain
|
||||
end
|
||||
local expected = (((totalrounds / intbits) / 0x2))
|
||||
local expected = ((totalrounds / intbits) / 0x2)
|
||||
for i = 0x1, intbits
|
||||
do
|
||||
if not testnear(counts[i],expected,0.1) then
|
||||
goto doagain
|
||||
end
|
||||
end
|
||||
print(string.format("\u{69}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}\u{20}\u{72}\u{61}\u{6e}\u{64}\u{6f}\u{6d}\u{20}\u{72}\u{61}\u{6e}\u{67}\u{65}\u{20}\u{69}\u{6e}\u{20}\u{25}\u{64}\u{20}\u{63}\u{61}\u{6c}\u{6c}\u{73}\u{3a}\u{20}\u{5b}\u{6d}\u{69}\u{6e}\u{69}\u{6e}\u{74}\u{20}\u{2b}\u{20}\u{25}\u{2e}\u{30}\u{66}\u{70}\u{70}\u{6d}\u{2c}\u{20}\u{6d}\u{61}\u{78}\u{69}\u{6e}\u{74}\u{20}\u{2d}\u{20}\u{25}\u{2e}\u{30}\u{66}\u{70}\u{70}\u{6d}\u{5d}",totalrounds,((((minint - low)) / minint) * 1e6),((((maxint - up)) / maxint) * 1e6)))
|
||||
print(string.format("\u{69}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}\u{20}\u{72}\u{61}\u{6e}\u{64}\u{6f}\u{6d}\u{20}\u{72}\u{61}\u{6e}\u{67}\u{65}\u{20}\u{69}\u{6e}\u{20}\u{25}\u{64}\u{20}\u{63}\u{61}\u{6c}\u{6c}\u{73}\u{3a}\u{20}\u{5b}\u{6d}\u{69}\u{6e}\u{69}\u{6e}\u{74}\u{20}\u{2b}\u{20}\u{25}\u{2e}\u{30}\u{66}\u{70}\u{70}\u{6d}\u{2c}\u{20}\u{6d}\u{61}\u{78}\u{69}\u{6e}\u{74}\u{20}\u{2d}\u{20}\u{25}\u{2e}\u{30}\u{66}\u{70}\u{70}\u{6d}\u{5d}",totalrounds,(((minint - low) / minint) * 1e6),(((maxint - up) / maxint) * 1e6)))
|
||||
end
|
||||
do
|
||||
local count = {0x0,0x0,0x0,0x0,0x0,0x0}
|
||||
@ -854,11 +854,11 @@ mark[t]=true
|
||||
count=(count + 0x1)
|
||||
end
|
||||
end
|
||||
if not ((count >= (n * 0.8))) then
|
||||
if not (count >= (n * 0.8)) then
|
||||
goto doagain
|
||||
end
|
||||
local diff = (((p2 - p1)) >> 0x4)
|
||||
if not (((min < (p1 + diff)) and (max > (p2 - diff)))) then
|
||||
local diff = ((p2 - p1) >> 0x4)
|
||||
if not ((min < (p1 + diff)) and (max > (p2 - diff))) then
|
||||
goto doagain
|
||||
end
|
||||
end
|
||||
@ -870,7 +870,7 @@ aux((minint // 0x2),(maxint // 0x2))
|
||||
aux(minint,maxint)
|
||||
aux((minint + 0x1),maxint)
|
||||
aux(minint,(maxint - 0x1))
|
||||
aux(0x0,(0x1 << ((intbits - 0x5))))
|
||||
aux(0x0,(0x1 << (intbits - 0x5)))
|
||||
end
|
||||
assert(not pcall(random,0x1,0x2,0x3))
|
||||
assert(not pcall(random,(minint + 0x1),minint))
|
||||
|
||||
@ -85,12 +85,12 @@ k,v=f({[math.mininteger] = 0xa},k)
|
||||
assert((k == nil))
|
||||
end
|
||||
if not T then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{73}\u{69}\u{7a}\u{65}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{73}\u{69}\u{7a}\u{65}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
local function mp2
|
||||
(n)
|
||||
local mp = (0x2 ^ math.ceil(math.log(n,0x2)))
|
||||
assert(((n == 0x0) or ((((mp / 0x2) < n) and (n <= mp)))))
|
||||
assert(((n == 0x0) or (((mp / 0x2) < n) and (n <= mp))))
|
||||
return mp
|
||||
end
|
||||
do
|
||||
@ -391,7 +391,7 @@ function table.maxn(t)
|
||||
local max = 0x0
|
||||
for k in pairs(t)
|
||||
do
|
||||
max=((((type(k) == "\u{6e}\u{75}\u{6d}\u{62}\u{65}\u{72}")) and math.max(max,k)) or max)
|
||||
max=(((type(k) == "\u{6e}\u{75}\u{6d}\u{62}\u{65}\u{72}") and math.max(max,k)) or max)
|
||||
end
|
||||
return max
|
||||
end
|
||||
@ -443,7 +443,7 @@ do
|
||||
local k1 = next(t)
|
||||
assert((k == k1))
|
||||
t[k]=nil
|
||||
local expected = (((((type(k) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and k[0x1]) or ((type(k) == "\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}") and k())) or string.sub(k,0x1,0x1)))
|
||||
local expected = ((((type(k) == "\u{74}\u{61}\u{62}\u{6c}\u{65}") and k[0x1]) or ((type(k) == "\u{66}\u{75}\u{6e}\u{63}\u{74}\u{69}\u{6f}\u{6e}") and k())) or string.sub(k,0x1,0x1))
|
||||
assert((expected == v))
|
||||
coroutine.yield(v)
|
||||
end
|
||||
@ -588,7 +588,7 @@ local k,v = next(t)
|
||||
assert(((k == math.mininteger) and (v == 0x14)))
|
||||
end
|
||||
if not T then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{6c}\u{69}\u{62}\u{72}\u{61}\u{72}\u{79}\u{20}\u{6f}\u{6e}\u{20}\u{6e}\u{6f}\u{6e}\u{2d}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{6c}\u{69}\u{62}\u{72}\u{61}\u{72}\u{79}\u{20}\u{6f}\u{6e}\u{20}\u{6e}\u{6f}\u{6e}\u{2d}\u{74}\u{61}\u{62}\u{6c}\u{65}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
local debug = require("\u{64}\u{65}\u{62}\u{75}\u{67}")
|
||||
local tab = {0xa,0x14,0x1e}
|
||||
|
||||
@ -94,7 +94,7 @@ print("\u{2b}")
|
||||
local function f1
|
||||
(s,p)
|
||||
p=string.gsub(p,"\u{25}\u{25}\u{28}\u{5b}\u{30}\u{2d}\u{39}\u{5d}\u{29}",function (s)
|
||||
return ("\u{25}" .. ((tonumber(s) + 0x1)))
|
||||
return ("\u{25}" .. (tonumber(s) + 0x1))
|
||||
end)
|
||||
p=string.gsub(p,"\u{5e}\u{28}\u{5e}\u{3f}\u{29}","\u{25}\u{31}\u{28}\u{29}",0x1)
|
||||
p=string.gsub(p,"\u{28}\u{24}\u{3f}\u{29}\u{24}","\u{28}\u{29}\u{25}\u{31}",0x1)
|
||||
|
||||
@ -37,8 +37,8 @@ assert(((a == 0x1) and (x == nil)))
|
||||
a,x=unpack({0x1,0x2},0x1,0x1)
|
||||
assert(((a == 0x1) and (x == nil)))
|
||||
do
|
||||
local maxi = (((0x1 << 0x1f)) - 0x1)
|
||||
local mini = - ((0x1 << 0x1f))
|
||||
local maxi = ((0x1 << 0x1f) - 0x1)
|
||||
local mini = - (0x1 << 0x1f)
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}\u{20}\u{72}\u{65}\u{73}\u{75}\u{6c}\u{74}\u{73}",unpack,{},0x0,maxi)
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}\u{20}\u{72}\u{65}\u{73}\u{75}\u{6c}\u{74}\u{73}",unpack,{},0x1,maxi)
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6d}\u{61}\u{6e}\u{79}\u{20}\u{72}\u{65}\u{73}\u{75}\u{6c}\u{74}\u{73}",unpack,{},0x0,maxI)
|
||||
@ -237,7 +237,7 @@ local function timesort
|
||||
(a,n,func,msg,pre)
|
||||
local x = os.clock()
|
||||
table.sort(a,func)
|
||||
x=(((os.clock() - x)) * 0x3e8)
|
||||
x=((os.clock() - x) * 0x3e8)
|
||||
pre=(pre or "")
|
||||
print(string.format("\u{25}\u{73}\u{73}\u{6f}\u{72}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{25}\u{64}\u{20}\u{25}\u{73}\u{20}\u{65}\u{6c}\u{65}\u{6d}\u{65}\u{6e}\u{74}\u{73}\u{20}\u{69}\u{6e}\u{20}\u{25}\u{2e}\u{32}\u{66}\u{20}\u{6d}\u{73}\u{65}\u{63}\u{2e}",pre,n,msg,x))
|
||||
check(a,func)
|
||||
@ -266,7 +266,7 @@ i=(i + 0x1)
|
||||
;
|
||||
return (y < x)
|
||||
end)
|
||||
x=(((os.clock() - x)) * 0x3e8)
|
||||
x=((os.clock() - x) * 0x3e8)
|
||||
print(string.format("\u{49}\u{6e}\u{76}\u{65}\u{72}\u{74}\u{2d}\u{73}\u{6f}\u{72}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{6f}\u{74}\u{68}\u{65}\u{72}\u{20}\u{25}\u{64}\u{20}\u{65}\u{6c}\u{65}\u{6d}\u{65}\u{6e}\u{74}\u{73}\u{20}\u{69}\u{6e}\u{20}\u{25}\u{2e}\u{32}\u{66}\u{20}\u{6d}\u{73}\u{65}\u{63}\u{2e}\u{2c}\u{20}\u{77}\u{69}\u{74}\u{68}\u{20}\u{25}\u{69}\u{20}\u{63}\u{6f}\u{6d}\u{70}\u{61}\u{72}\u{69}\u{73}\u{6f}\u{6e}\u{73}",limit,x,i))
|
||||
check(a,function (x,y)
|
||||
return (y < x)
|
||||
|
||||
@ -15,14 +15,14 @@ assert(("\u{61}\u{6c}\u{6f}\u{0}" > "\u{61}\u{6c}\u{6f}"))
|
||||
assert(("\u{0}" < "\u{1}"))
|
||||
assert(("\u{0}\u{0}" < "\u{0}\u{1}"))
|
||||
assert(("\u{1}\u{0}\u{61}\u{0}\u{61}" <= "\u{1}\u{0}\u{61}\u{0}\u{61}"))
|
||||
assert(not (("\u{1}\u{0}\u{61}\u{0}\u{62}" <= "\u{1}\u{0}\u{61}\u{0}\u{61}")))
|
||||
assert(not ("\u{1}\u{0}\u{61}\u{0}\u{62}" <= "\u{1}\u{0}\u{61}\u{0}\u{61}"))
|
||||
assert(("\u{0}\u{0}\u{0}" < "\u{0}\u{0}\u{0}\u{0}"))
|
||||
assert(not (("\u{0}\u{0}\u{0}\u{0}" < "\u{0}\u{0}\u{0}")))
|
||||
assert(not ("\u{0}\u{0}\u{0}\u{0}" < "\u{0}\u{0}\u{0}"))
|
||||
assert(("\u{0}\u{0}\u{0}" <= "\u{0}\u{0}\u{0}\u{0}"))
|
||||
assert(not (("\u{0}\u{0}\u{0}\u{0}" <= "\u{0}\u{0}\u{0}")))
|
||||
assert(not ("\u{0}\u{0}\u{0}\u{0}" <= "\u{0}\u{0}\u{0}"))
|
||||
assert(("\u{0}\u{0}\u{0}" <= "\u{0}\u{0}\u{0}"))
|
||||
assert(("\u{0}\u{0}\u{0}" >= "\u{0}\u{0}\u{0}"))
|
||||
assert(not (("\u{0}\u{0}\u{62}" < "\u{0}\u{0}\u{61}\u{0}")))
|
||||
assert(not ("\u{0}\u{0}\u{62}" < "\u{0}\u{0}\u{61}\u{0}"))
|
||||
assert((string.sub("\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}",0x2,0x4) == "\u{32}\u{33}\u{34}"))
|
||||
assert((string.sub("\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}",0x7) == "\u{37}\u{38}\u{39}"))
|
||||
assert((string.sub("\u{31}\u{32}\u{33}\u{34}\u{35}\u{36}\u{37}\u{38}\u{39}",0x7,0x6) == ""))
|
||||
@ -88,8 +88,8 @@ assert((string.rep("\u{74}\u{65}\u{73}\u{74}\u{65}",0x0) == ""))
|
||||
assert((string.rep("\u{74}\u{e9}\u{73}\u{0}\u{74}\u{ea}",0x2) == "\u{74}\u{e9}\u{73}\u{0}\u{74}\u{ea}\u{74}\u{e9}\u{73}\u{0}\u{74}\u{ea}"))
|
||||
assert((string.rep("",0xa) == ""))
|
||||
if (string.packsize("\u{69}") == 0x4) then
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{61}\u{72}\u{67}\u{65}",string.rep,"\u{61}\u{61}",((0x1 << 0x1e)))
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{61}\u{72}\u{67}\u{65}",string.rep,"\u{61}",((0x1 << 0x1e)),"\u{2c}")
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{61}\u{72}\u{67}\u{65}",string.rep,"\u{61}\u{61}",(0x1 << 0x1e))
|
||||
checkerror("\u{74}\u{6f}\u{6f}\u{20}\u{6c}\u{61}\u{72}\u{67}\u{65}",string.rep,"\u{61}",(0x1 << 0x1e),"\u{2c}")
|
||||
end
|
||||
assert((string.rep("\u{74}\u{65}\u{73}\u{74}\u{65}",0x0,"\u{78}\u{75}\u{78}\u{75}") == ""))
|
||||
assert((string.rep("\u{74}\u{65}\u{73}\u{74}\u{65}",0x1,"\u{78}\u{75}\u{78}\u{75}") == "\u{74}\u{65}\u{73}\u{74}\u{65}"))
|
||||
@ -223,7 +223,7 @@ do
|
||||
local i = 0x1
|
||||
local j = 0x2710
|
||||
while ((i + 0x1) < j) do
|
||||
local m = (((i + j)) // 0x2)
|
||||
local m = ((i + j) // 0x2)
|
||||
if ((0xa ^ m) < math.huge) then
|
||||
i=m
|
||||
else
|
||||
@ -231,13 +231,13 @@ j=m
|
||||
end
|
||||
end
|
||||
assert((((0xa ^ i) < math.huge) and ((0xa ^ j) == math.huge)))
|
||||
local s = string.format("\u{25}\u{2e}\u{39}\u{39}\u{66}",- ((0xa ^ i)))
|
||||
local s = string.format("\u{25}\u{2e}\u{39}\u{39}\u{66}",- (0xa ^ i))
|
||||
assert((string.len(s) >= (i + 0x65)))
|
||||
assert((tonumber(s) == - ((0xa ^ i))))
|
||||
assert((tonumber(s) == - (0xa ^ i)))
|
||||
assert(((0xa ^ 0x26) < math.huge))
|
||||
local s = string.format("\u{25}\u{2e}\u{39}\u{39}\u{66}",- ((0xa ^ 0x26)))
|
||||
local s = string.format("\u{25}\u{2e}\u{39}\u{39}\u{66}",- (0xa ^ 0x26))
|
||||
assert((string.len(s) >= (0x26 + 0x65)))
|
||||
assert((tonumber(s) == - ((0xa ^ 0x26))))
|
||||
assert((tonumber(s) == - (0xa ^ 0x26)))
|
||||
end
|
||||
do
|
||||
local max,min = 0x7fffffff,- 0x80000000
|
||||
@ -250,7 +250,7 @@ assert((string.format("\u{25}\u{75}",0xffffffff) == "\u{34}\u{32}\u{39}\u{34}\u{
|
||||
assert((string.format("\u{25}\u{6f}",0xabcd) == "\u{31}\u{32}\u{35}\u{37}\u{31}\u{35}"))
|
||||
max,min=0x7fffffffffffffff,- 0x8000000000000000
|
||||
if (max > (2.0 ^ 0x35)) then
|
||||
assert((string.format("\u{25}\u{78}",((((0x2 ^ 0x34) | 0x0)) - 0x1)) == "\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}"))
|
||||
assert((string.format("\u{25}\u{78}",(((0x2 ^ 0x34) | 0x0) - 0x1)) == "\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}\u{66}"))
|
||||
assert((string.format("\u{30}\u{78}\u{25}\u{38}\u{58}",0x8f000003) == "\u{30}\u{78}\u{38}\u{46}\u{30}\u{30}\u{30}\u{30}\u{30}\u{33}"))
|
||||
assert((string.format("\u{25}\u{64}",(0x2 ^ 0x35)) == "\u{39}\u{30}\u{30}\u{37}\u{31}\u{39}\u{39}\u{32}\u{35}\u{34}\u{37}\u{34}\u{30}\u{39}\u{39}\u{32}"))
|
||||
assert((string.format("\u{25}\u{69}",- (0x2 ^ 0x35)) == "\u{2d}\u{39}\u{30}\u{30}\u{37}\u{31}\u{39}\u{39}\u{32}\u{35}\u{34}\u{37}\u{34}\u{30}\u{39}\u{39}\u{32}"))
|
||||
@ -286,7 +286,7 @@ assert(string.find(string.format("\u{25}\u{61}",(0x0 / 0x0)),"\u{5e}\u{25}\u{2d}
|
||||
assert(string.find(string.format("\u{25}\u{61}",- 0.0),"\u{5e}\u{25}\u{2d}\u{30}\u{78}\u{30}"))
|
||||
end
|
||||
if not pcall(string.format,"\u{25}\u{2e}\u{33}\u{61}",0x0) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{6d}\u{6f}\u{64}\u{69}\u{66}\u{69}\u{65}\u{72}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{66}\u{6f}\u{72}\u{6d}\u{61}\u{74}\u{20}\u{27}\u{25}\u{61}\u{27}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{76}\u{61}\u{69}\u{6c}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{6d}\u{6f}\u{64}\u{69}\u{66}\u{69}\u{65}\u{72}\u{73}\u{20}\u{66}\u{6f}\u{72}\u{20}\u{66}\u{6f}\u{72}\u{6d}\u{61}\u{74}\u{20}\u{27}\u{25}\u{61}\u{27}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{76}\u{61}\u{69}\u{6c}\u{61}\u{62}\u{6c}\u{65}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
assert(string.find(string.format("\u{25}\u{2b}\u{2e}\u{32}\u{41}",0xc),"\u{5e}\u{25}\u{2b}\u{30}\u{58}\u{25}\u{78}\u{25}\u{2e}\u{25}\u{78}\u{30}\u{50}\u{25}\u{2b}\u{3f}\u{25}\u{64}\u{24}"))
|
||||
assert(string.find(string.format("\u{25}\u{2e}\u{34}\u{41}",- 0xc),"\u{5e}\u{25}\u{2d}\u{30}\u{58}\u{25}\u{78}\u{25}\u{2e}\u{25}\u{78}\u{30}\u{30}\u{30}\u{50}\u{25}\u{2b}\u{3f}\u{25}\u{64}\u{24}"))
|
||||
@ -390,7 +390,7 @@ local co = coroutine.wrap(f)
|
||||
assert((co() == "\u{32}"))
|
||||
end
|
||||
if (T == nil) then
|
||||
((Message or print))("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{27}\u{70}\u{75}\u{73}\u{68}\u{66}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{27}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
(Message or print)("\u{a}\u{20}\u{3e}\u{3e}\u{3e}\u{20}\u{74}\u{65}\u{73}\u{74}\u{43}\u{20}\u{6e}\u{6f}\u{74}\u{20}\u{61}\u{63}\u{74}\u{69}\u{76}\u{65}\u{3a}\u{20}\u{73}\u{6b}\u{69}\u{70}\u{70}\u{69}\u{6e}\u{67}\u{20}\u{27}\u{70}\u{75}\u{73}\u{68}\u{66}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{27}\u{20}\u{74}\u{65}\u{73}\u{74}\u{73}\u{20}\u{3c}\u{3c}\u{3c}\u{a}")
|
||||
else
|
||||
print("\u{74}\u{65}\u{73}\u{74}\u{69}\u{6e}\u{67}\u{20}\u{27}\u{70}\u{75}\u{73}\u{68}\u{66}\u{73}\u{74}\u{72}\u{69}\u{6e}\u{67}\u{27}")
|
||||
local blen = 0xc8
|
||||
|
||||
@ -11,12 +11,12 @@ local sizeLI = packsize("\u{6a}")
|
||||
local sizefloat = packsize("\u{66}")
|
||||
local sizedouble = packsize("\u{64}")
|
||||
local sizenumber = packsize("\u{6e}")
|
||||
local little = ((pack("\u{69}\u{32}",0x1) == "\u{1}\u{0}"))
|
||||
local little = (pack("\u{69}\u{32}",0x1) == "\u{1}\u{0}")
|
||||
local align = packsize("\u{21}\u{78}\u{58}\u{69}\u{31}\u{36}")
|
||||
assert(((((0x1 <= sizeshort) and (sizeshort <= sizeint)) and (sizeint <= sizelong)) and (sizefloat <= sizedouble)))
|
||||
print("\u{70}\u{6c}\u{61}\u{74}\u{66}\u{6f}\u{72}\u{6d}\u{3a}")
|
||||
print(string.format("\u{9}\u{73}\u{68}\u{6f}\u{72}\u{74}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{69}\u{6e}\u{74}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{6c}\u{6f}\u{6e}\u{67}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{73}\u{69}\u{7a}\u{65}\u{5f}\u{74}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{66}\u{6c}\u{6f}\u{61}\u{74}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{64}\u{6f}\u{75}\u{62}\u{6c}\u{65}\u{20}\u{25}\u{64}\u{2c}\u{a}\u{9}\u{6c}\u{75}\u{61}\u{20}\u{49}\u{6e}\u{74}\u{65}\u{67}\u{65}\u{72}\u{20}\u{25}\u{64}\u{2c}\u{20}\u{6c}\u{75}\u{61}\u{20}\u{4e}\u{75}\u{6d}\u{62}\u{65}\u{72}\u{20}\u{25}\u{64}",sizeshort,sizeint,sizelong,sizesize_t,sizefloat,sizedouble,sizeLI,sizenumber))
|
||||
print(("\u{9}" .. ((((little and "\u{6c}\u{69}\u{74}\u{74}\u{6c}\u{65}") or "\u{62}\u{69}\u{67}")) .. "\u{20}\u{65}\u{6e}\u{64}\u{69}\u{61}\u{6e}")))
|
||||
print(("\u{9}" .. (((little and "\u{6c}\u{69}\u{74}\u{74}\u{6c}\u{65}") or "\u{62}\u{69}\u{67}") .. "\u{20}\u{65}\u{6e}\u{64}\u{69}\u{61}\u{6e}")))
|
||||
print(("\u{9}\u{61}\u{6c}\u{69}\u{67}\u{6e}\u{6d}\u{65}\u{6e}\u{74}\u{3a}\u{20}" .. align))
|
||||
local function checkerror
|
||||
(msg,f, ...)
|
||||
@ -65,7 +65,7 @@ for i = 0x1, sizeLI
|
||||
do
|
||||
local lstr = "\u{1}\u{2}\u{3}\u{4}\u{5}\u{6}\u{7}\u{8}\u{9}\u{a}\u{b}\u{c}\u{d}"
|
||||
local lnum = 0x807060504030201
|
||||
local n = (lnum & (~ (- (0x1 << ((i * 0x8))))))
|
||||
local n = (lnum & (~ (- (0x1 << (i * 0x8)))))
|
||||
local s = string.sub(lstr,0x1,i)
|
||||
assert((pack(("\u{3c}\u{69}" .. i),n) == s))
|
||||
assert((pack(("\u{3e}\u{69}" .. i),n) == s:reverse()))
|
||||
@ -107,7 +107,7 @@ assert((packsize(s) == 0x7fffffff))
|
||||
end
|
||||
for i = 0x1, (sizeLI - 0x1)
|
||||
do
|
||||
local umax = (((0x1 << ((i * 0x8)))) - 0x1)
|
||||
local umax = ((0x1 << (i * 0x8)) - 0x1)
|
||||
local max = (umax >> 0x1)
|
||||
local min = ~ max
|
||||
checkerror("\u{6f}\u{76}\u{65}\u{72}\u{66}\u{6c}\u{6f}\u{77}",pack,("\u{3c}\u{49}" .. i),- 0x1)
|
||||
@ -197,11 +197,11 @@ local x = pack("\u{3e}\u{21}\u{38}\u{20}\u{62}\u{20}\u{58}\u{68}\u{20}\u{69}\u{3
|
||||
assert(# (x == packsize("\u{3e}\u{21}\u{38}\u{20}\u{62}\u{20}\u{58}\u{68}\u{20}\u{69}\u{34}\u{20}\u{69}\u{38}\u{20}\u{63}\u{31}\u{20}\u{58}\u{69}\u{38}")))
|
||||
assert((x == ("\u{f4}" .. ("\u{0}\u{0}\u{0}" .. ("\u{0}\u{0}\u{0}\u{64}" .. ("\u{0}\u{0}\u{0}\u{0}\u{0}\u{0}\u{0}\u{c8}" .. ("\u{ec}" .. "\u{0}\u{0}\u{0}\u{0}\u{0}\u{0}\u{0}")))))))
|
||||
local a,b,c,d,pos = unpack("\u{3e}\u{21}\u{38}\u{20}\u{63}\u{31}\u{20}\u{58}\u{68}\u{20}\u{69}\u{34}\u{20}\u{69}\u{38}\u{20}\u{62}\u{20}\u{58}\u{69}\u{38}\u{20}\u{58}\u{49}\u{20}\u{58}\u{48}",x)
|
||||
assert(((((a == "\u{f4}") and (b == 0x64)) and (c == 0xc8)) and (d == - (0x14 and (((pos - 0x1)) == # x)))))
|
||||
assert(((((a == "\u{f4}") and (b == 0x64)) and (c == 0xc8)) and (d == - (0x14 and ((pos - 0x1) == # x)))))
|
||||
x=pack("\u{3e}\u{21}\u{34}\u{20}\u{63}\u{33}\u{20}\u{63}\u{34}\u{20}\u{63}\u{32}\u{20}\u{7a}\u{20}\u{69}\u{34}\u{20}\u{63}\u{35}\u{20}\u{63}\u{32}\u{20}\u{58}\u{69}\u{34}","\u{61}\u{62}\u{63}","\u{61}\u{62}\u{63}\u{64}","\u{78}\u{7a}","\u{68}\u{65}\u{6c}\u{6c}\u{6f}",0x5,"\u{77}\u{6f}\u{72}\u{6c}\u{64}","\u{78}\u{79}")
|
||||
assert((x == "\u{61}\u{62}\u{63}\u{61}\u{62}\u{63}\u{64}\u{78}\u{7a}\u{68}\u{65}\u{6c}\u{6c}\u{6f}\u{0}\u{0}\u{0}\u{0}\u{0}\u{5}\u{77}\u{6f}\u{72}\u{6c}\u{64}\u{78}\u{79}\u{0}"))
|
||||
local a,b,c,d,e,f,g,pos = unpack("\u{3e}\u{21}\u{34}\u{20}\u{63}\u{33}\u{20}\u{63}\u{34}\u{20}\u{63}\u{32}\u{20}\u{7a}\u{20}\u{69}\u{34}\u{20}\u{63}\u{35}\u{20}\u{63}\u{32}\u{20}\u{58}\u{68}\u{20}\u{58}\u{69}\u{34}",x)
|
||||
assert(((((((((a == "\u{61}\u{62}\u{63}") and (b == "\u{61}\u{62}\u{63}\u{64}")) and (c == "\u{78}\u{7a}")) and (d == "\u{68}\u{65}\u{6c}\u{6c}\u{6f}")) and (e == 0x5)) and (f == "\u{77}\u{6f}\u{72}\u{6c}\u{64}")) and (g == "\u{78}\u{79}")) and ((((pos - 0x1)) % 0x4) == 0x0)))
|
||||
assert(((((((((a == "\u{61}\u{62}\u{63}") and (b == "\u{61}\u{62}\u{63}\u{64}")) and (c == "\u{78}\u{7a}")) and (d == "\u{68}\u{65}\u{6c}\u{6c}\u{6f}")) and (e == 0x5)) and (f == "\u{77}\u{6f}\u{72}\u{6c}\u{64}")) and (g == "\u{78}\u{79}")) and (((pos - 0x1) % 0x4) == 0x0)))
|
||||
x=pack("\u{20}\u{62}\u{20}\u{62}\u{20}\u{58}\u{64}\u{20}\u{62}\u{20}\u{58}\u{62}\u{20}\u{78}",0x1,0x2,0x3)
|
||||
assert((packsize("\u{20}\u{62}\u{20}\u{62}\u{20}\u{58}\u{64}\u{20}\u{62}\u{20}\u{58}\u{62}\u{20}\u{78}") == 0x4))
|
||||
assert((x == "\u{1}\u{2}\u{3}\u{0}"))
|
||||
@ -242,7 +242,7 @@ end
|
||||
for pos = 0x0, 0xc
|
||||
do
|
||||
local i,p = unpack("\u{21}\u{34}\u{20}\u{69}\u{34}",x,(pos + 0x1))
|
||||
assert(((i == ((((pos + 0x3)) // 0x4) + 0x1)) and (p == ((i * 0x4) + 0x1))))
|
||||
assert(((i == (((pos + 0x3) // 0x4) + 0x1)) and (p == ((i * 0x4) + 0x1))))
|
||||
end
|
||||
local i,p = unpack("\u{21}\u{34}\u{20}\u{69}\u{34}",x,- 0x4)
|
||||
assert(((i == 0x4) and (p == 0x11)))
|
||||
|
||||
@ -150,7 +150,7 @@ end
|
||||
assert((utf8.char() == ""))
|
||||
assert((utf8.char(0x0,0x61,0x62,0x63,0x1) == "\u{0}\u{61}\u{62}\u{63}\u{1}"))
|
||||
assert((utf8.codepoint(utf8.char(0x10ffff)) == 0x10ffff))
|
||||
assert((utf8.codepoint(utf8.char(0x7fffffff),0x1,0x1,true) == (((0x1 << 0x1f)) - 0x1)))
|
||||
assert((utf8.codepoint(utf8.char(0x7fffffff),0x1,0x1,true) == ((0x1 << 0x1f) - 0x1)))
|
||||
checkerror("\u{76}\u{61}\u{6c}\u{75}\u{65}\u{20}\u{6f}\u{75}\u{74}\u{20}\u{6f}\u{66}\u{20}\u{72}\u{61}\u{6e}\u{67}\u{65}",utf8.char,(0x7fffffff + 0x1))
|
||||
checkerror("\u{76}\u{61}\u{6c}\u{75}\u{65}\u{20}\u{6f}\u{75}\u{74}\u{20}\u{6f}\u{66}\u{20}\u{72}\u{61}\u{6e}\u{67}\u{65}",utf8.char,- 0x1)
|
||||
local function invalid
|
||||
|
||||
@ -14,7 +14,7 @@ assert((arg == _G.arg))
|
||||
local x = {...}
|
||||
;
|
||||
x.n=# x
|
||||
local res = ((((x.n == 0x2) and (x[0x1] == 0x1)) and (x[0x2] == 0x2)))
|
||||
local res = (((x.n == 0x2) and (x[0x1] == 0x1)) and (x[0x2] == 0x2))
|
||||
if res then
|
||||
res=0x37
|
||||
end
|
||||
|
||||
File diff suppressed because one or more lines are too long
Loading…
Reference in New Issue
Block a user