إعـــــــلان

**ربيع ربيع** · 19-01-2017, 02:27 PM

سؤال جميل و مفيد برجاء عدم كتابة الحل لأطول فترة ممكنة لاتاحة المحاولة
مشكور

**ربيع ربيع** · 19-01-2017, 02:35 PM

هل يسمح باستعمال الكود الجاهز AE.ListBoxDeleteItemsRepeat(); في الاضافة AE

**المـهاجر المـهاجر** · 19-01-2017, 02:56 PM

المشاركة الأصلية بواسطة ربيع مشاهدة المشاركة

هل يسمح باستعمال الكود الجاهز AE.ListBoxDeleteItemsRepeat(); في الاضافة AE

أخى الكريم الأستاذ ربيع
لاحظ

عدم اقحام الليستبوكس فى اى عملية عدا اظهار العناصر فقط
(يحظر استخدام الدالة ListBox.FindItem فى التمرين)

اذا كان غير مسموح بالليست القياسى بالتدخل
فبالتأكيد غير مسموح بإستخدام اى اضافات من اى نوع

نريدها عمليات تيبل خالية من اى عناصر داخلية او خارجية
موفق بإذن الله

**فرح صالحي فرح صالحي** · 19-01-2017, 04:01 PM

موفق بإذن الله .

.. لك مني أجمل تحية .

عبد الهادي بهاب · 19-01-2017, 07:02 PM

جميل جدا
نحاول حتى نجد حل او شبه حل بارك الله فيكم

**ياسرهتهت ياسرهتهت** · 19-01-2017, 08:28 PM

بسم الله الرحمن الرحيم
تمرين رائع ..... وصعب على المبتدئين امثالي
نحاول لعلي وعسي

شـكــ وبارك الله فيك ـــرا لك
لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 20-01-2017, 10:43 AM

"" عدم إستخدام اى كود لحذف اى قيم من المصفوفة "" ألا ترى أنه شرط موجه نحو كود بعينــــه
في تقديري هذا الشرط ( يأتي كتهذيب لأي محاولة فيما بعد )
على كل عني سأكتب كأول محاولة

كود PHP:


t = { 1,1,2,1,1,3,3,1 }

table.sort(t, function(a,b) return a<b end)

for d,p in pairs (t)  do

repeat

if t [p] == t[p+1] then

Table.Remove(t, t[p]);

end

until t [p] ~= t[p+1]

end

-----------------------

result = Dialog.Message("Notice", #t);

يمكنك عرض العناصر و اعتمدت على الترتيب ثم الحذف

**عبود عبود عبود عبود** · 20-01-2017, 01:47 PM

إذا بقى الموضوع مفتوح لفترة أطول سوف أحاول معكم بالطريقة التقليدية عن طريق إستخدام التكرار

معذرة فالإنشغال حاليا هو المعوق للمحاولة معكم

لكن أعتقد أنى سوف أعتمد على دالة تكرارية بعدد عناصر المصفوفة ومن ثم مقارنة المدخل معهم عن طريق الشرط إف

فإذا كان المدخل موجود لا يتم الإدخال فى المصفوفة أما إذا كان المدخل غير موجود وكان العنصر الأخير فى المصفوفة غير مساوى للمدخل سوف يتم التخزين أو الإدخال إلى المصفوفة

**المـهاجر المـهاجر** · 21-01-2017, 08:39 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

"" عدم إستخدام اى كود لحذف اى قيم من المصفوفة "" ألا ترى أنه شرط موجه نحو كود بعينــــه
في تقديري هذا الشرط ( يأتي كتهذيب لأي محاولة فيما بعد )
على كل عني سأكتب كأول محاولة

كود PHP:


t = { 1,1,2,1,1,3,3,1 }
table.sort(t, function(a,b) return a<b end)
for d,p in pairs (t)  do
repeat
if t [p] == t[p+1] then
Table.Remove(t, t[p]);
end
until t [p] ~= t[p+1]
end
-----------------------
result = Dialog.Message("Notice", #t);

يمكنك عرض العناصر و اعتمدت على الترتيب ثم الحذف

كما تفضلت بالذكر تماما
فعلا انا اقصد تهذيب أو تقييد للكود
لكن ليس لكود محدد
بل لأسلوب محدد
و هو اسلوب "عدم الادراج ثم الحذف لاحقا"
و وضع النرد فى السؤال له معنى هام و هو "العشوائية"
لذلك غير مسموح نهائيا بتثبيت عناصر مصفوفة نواتج رمى النرد
لأن التمرين يفترض ان يتعامل مع مصفوفة تتغير عناصرها
لتناسب عمليات ال Permutation (التباديل أو العشوائية)
التى قد تنتج عناصر مكررة بكثافة كبيرة

بجميع الاحوال محاولة جميلة جدا
ستكون اجمل لو راعت الشروط التى أوضحت الآن اهميتها على الصعيد العملى
و ليست أبدا شروط للتصعيب او لحصر الحل

**المـهاجر المـهاجر** · 21-01-2017, 10:26 AM

شكرا للمرور زملائى الأساتذة فرح و ياسر و المحترف و عبود
و التمرين يظل مفتوح لفترة كافية
و لا بأس من الانتظار فالفائدة المرتقبة ثمينة بإذن الله

**ثامر أبو بلقيس ثامر أبو بلقيس** · 21-01-2017, 01:50 PM

كود PHP:


my_table = {};-----  الاعلان عن  المصفوفة شاغرة 

result="" ----  حاوية  تجميع  الأريقام العشوائية  كرقم واحد

for i = 1,6 do  ----   دالة  تفيد  تكرار للدالة العشوائية

result =result.. Math.Random(1, 6) ---  كلما  ظهر رقم عشوائي من  الستة  يخزن  كرقم عادي متجانب

end

tmer=result   ---  ذلك  الرقم  خزنته في متعير  جديد  لاجراء هليه عملبات

for m = 1, String.Length(result) do  ---  

x =String.Mid(result,m, 1)  ---  عند  دورة  للدالة  الجديدة  سألتقط  الرقم الاول 

k = String.Find(tmer, ""..x, 1, false);---  وابحث  عنخ وفق المتعير الجديد

if k ~= -1 then   ---  اذ كانت  النتيجة للبحث  أقل من -1

Table.Insert(my_table, 1,x );  ---  يكتب  العنصر في  المصفوفة

yy = Table.Concat(my_table, ";", 1,TABLE_ALL);

tmer = String.Replace(tmer, ""..x, "", false); ---  ويحذف  كل  العناصر المشابهة  لما خزن

end

end

Dialog.Message("Length ="..Table.Count(my_table),yy);   ---   طول  المصفوفة في الاعلى  و عناصرها  في الحوار

**المـهاجر المـهاجر** · 21-01-2017, 02:33 PM

http://sites.ienajah.com/vb2/images/editor/php.gif

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

كود PHP:


my_table = {};-----  الاعلان عن  المصفوفة شاغرة 

result="" ----  حاوية  تجميع  الأريقام العشوائية  كرقم واحد

for i = 1,6 do  ----   دالة  تفيد  تكرار للدالة العشوائية

result =result.. Math.random(1, 6) ---  كلما  ظهر رقم عشوائي من  الستة  يخزن  كرقم عادي متجانب

end

tmer=result   ---  ذلك  الرقم  خزنته في متعير  جديد  لاجراء هليه عملبات

for m = 1, string.length(result) do  ---  

x =string.mid(result,m, 1)  ---  عند  دورة  للدالة  الجديدة  سألتقط  الرقم الاول 

k = string.find(tmer, ""..x, 1, false);---  وابحث  عنخ وفق المتعير الجديد

if k ~= -1 then   ---  اذ كانت  النتيجة للبحث  أقل من -1

table.insert(my_table, 1,x );  ---  يكتب  العنصر في  المصفوفة

yy = table.concat(my_table, ";", 1,table_all);

tmer = string.replace(tmer, ""..x, "", false); ---  ويحذف  كل  العناصر المشابهة  لما خزن

end

end

dialog.message("length ="..table.count(my_table),yy);   ---   طول  المصفوفة في الاعلى  و عناصرها  في الحوار

أخى الكريم
شكرا للمرة الثانية لمحاولتك
الحل فعلا يعطى النتائج المرجوة
لكن لاحظ
انت اعتمدت على التعامل مع المصفوفة كأنها سترنج
لكن أتعلم ما هى ضريبة ذلك ؟؟؟
الثمن باهظ جدا و هو التضحية بسرعة التنفيذ
طبق الكود الخاص بك بعد رفع الحد من 6 إلى 100000 "مائة ألف"
سيستغرق الكود أكثر من 11 ثانية للتنفيذ
بنهاية التمرين سترى أن التنفيذ لا يفترض ان يستغرق أكثر من ربع ثانية فى نفس الظروف

يمكنك التأكد بنفسك بتطبيق الكود خاصتك
بعد ان قمت برفع الحد ل 100000 و كذلك أضفت دالة اظهار الوقت بغرض التوضيح فقط

كود PHP:


my_table = {};

result="" 

for i = 1,100000 do

result =result.. Math.Random(1, 6) 

end

time1 = os.clock()

tmer=result  

for m = 1, String.Length(result) do 

x =String.Mid(result,m, 1) 

k = String.Find(tmer, ""..x, 1, false);

if k ~= -1 then 

Table.Insert(my_table, 1,x ); 

yy = Table.Concat(my_table, ";", 1,TABLE_ALL);

tmer = String.Replace(tmer, ""..x, "", false);

end

end

time2 = os.clock()

TotalTime = time2 - time1

Dialog.Message("Length ="..Table.Count(my_table), yy.."     time  =  "..TotalTime);

شكرا جزيلا لمشاركتك
و ننتظر الحل المرتكز على المصفوفات

**فرح صالحي فرح صالحي** · 21-01-2017, 11:06 PM

السلام عليكم ورحمة الله وبركاته
محاولة عديمي الخبرة

كود:

maTable = {
      a = 1,
      b = 2,
      c = 3,
      d = 4,
      e = 5,
      f = 6,
      }
    maMetaTable = {}
    function maMetaTable.__index(la_table, la_key)
      print(la_table, la_key)
      return 666
    end
    setmetatable(maTable, maMetaTable)

**المـهاجر المـهاجر** · 22-01-2017, 02:23 AM

مرحبا أخى فرح
سعدت جدا بمشاركتك
واصل المحاولة

إعـــــــلان

تمرين : ضمان عدم التكرار عند ادخال القيم للمصفوفات

تمرين : ضمان عدم التكرار عند ادخال القيم للمصفوفات

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك