... لك مني أجمل تحية .
تويت
-- Mohager Prevent Table Duplicate--
ListBox.DeleteItem("ListBox1", -1);
ListBox.SetUpdate("ListBox1", false);
t1 = os.clock()
function Add_Unique(TableName,Element)
if TableName[Element]== nil then
TableName[Element] = Element
end
end
MyTable = {}
t1 = os.clock()
for i = 1,50000 do
rnd = Math.Random(1, 10000);
Add_Unique(MyTable,rnd)
end
t2 = os.clock()
t3 = t2 - t1
tco = Table.Count(MyTable);
Dialog.Message("Notice", tco.. " "..t3);
for a,z in pairs(MyTable) do
ListBox.AddItem("ListBox1", z, "");
end
ListBox.SetUpdate("ListBox1", true);
abood = {};
for i=1,6 do
result = Math.Random(1, 6);
if #abood<1 then
abood[#abood+1]=result ;
elseif #abood>=1 then
for s=1,#abood do
if result~=abood[s] and s==#abood then
abood[#abood+1]=result ;
elseif result==abood[s] then
break
end
end
end
end
t = Table.Concat(abood, ",", 1, TABLE_ALL);
Input.SetText("Input1", t);
t1 = os.clock()
abood = {};
for i=1,10000 do
result = Math.Random(1, 1000);
if #abood<1 then
abood[#abood+1]=result ;
elseif #abood>=1 then
for s=1,#abood do
if result~=abood[s] and s==#abood then
abood[#abood+1]=result ;
elseif result==abood[s] then
break
end
end
end
end
t2 = os.clock()
t3 = t2 - t1
tco = Table.Count(abood);
Dialog.Message("Notice", tco.. " "..t3);
-- Mohager Prevent Table Duplicate--
ListBox.DeleteItem("ListBox1", -1);
t1 = os.clock()
function Add_Unique(TableName,Element)
if TableName[Element]== nil then
TableName[Element] = Element
end
end
MyTable = {}
t1 = os.clock()
for i = 1,10000 do
rnd = Math.Random(1, 1000);
Add_Unique(MyTable,rnd)
end
t2 = os.clock()
t3 = t2 - t1
tco = Table.Count(MyTable);
Dialog.Message("Notice", tco.. " "..t3);
t1 = os.clock()
abood = {};
for i=1,10000 do
result = Math.Random(1, 1000);
if #abood<1 then
abood[#abood+1]=result ;
elseif #abood>=1 then
--for s=1,#abood do
if result~=abood[s] then --and s==#abood then
abood[#abood+1]=result ;
elseif result==abood[s] then
-- break
end
--end
end
end
t2 = os.clock()
t3 = t2 - t1
tco = Table.Count(abood);
Dialog.Message("Notice", tco.. " "..t3);
معقول ؟؟؟
-- Mohager Prevent Table Duplicate--
function Add_Unique(TableName,Element)
if TableName[Element]== nil then
TableName[Element] = Element
end
end
MyTable = {}
for i = 1,10000 do
rnd = Math.Random(1, 1000);
Add_Unique(MyTable,rnd)
end
msg = Table.Concat(MyTable, " - ", 1, TABLE_ALL);
Dialog.Message("Notice", msg);
function Add_Unique(TableName,Element)
if TableName[Element]== nil then
TableName[Element] = Element
end
end
MyTable = {}
for i = 1,6 do
rnd = Math.Random(1, 6);
Add_Unique(MyTable,rnd)
end
msg = Table.Concat(MyTable, " , ", 1, TABLE_ALL);
Dialog.Message("Notice", msg);
-- Mohager Prevent Table Duplicate--
function Add_Unique(TableName,Element)
if TableName[Element]== nil then
TableName[Element] = Element
end
end
MyTable = {}
ListBox.DeleteItem("ListBox1", -1);
for i = 1,6 do
rnd = Math.Random(1, 6);
Add_Unique(MyTable,rnd)
end
msg = Table.Concat(MyTable, " , ", 1, TABLE_ALL);
Dialog.Message("Notice", msg);
for a,z in pairs(MyTable) do
ListBox.AddItem("ListBox1", z, "");
end
تعليق