code golf لغز او منافسه الـ saving time تقدر بحجم اقل؟

[saanina]

اهلين !
قبل شوي دخلت سجلت في موقع code golf وهو لمن لايعرف موقع منافسات على حل لغز او مسأله بلغتك المفضله !
وطبعا كلنا نعرف انه كل ماصار الكود اقل كل ماصار تنفيذه اسرع وعشان كذا الكود الاقل بالمنافسه يكون الافضل !

حاولت احل saving time :
http://codegolf.com/saving-time

و حليتها لكن بحوالي 423 حرف , يعني 423 بايت !

وافضل حل مثل ماهو معروض 101 بايت ومكتوب بالبيرل!!
يعني انا حوالي 3 مرات ضعف الكود اللي بالقمه حالياً

كمان فيه واحد حالها 132 حرف بال php وهو افضلهم بهذي اللغه !

هذا حلي , مظغوط ( يعني شايل السطور والفراغات لكن قابل للقراءه):

كود: تحديد الكل

$g=trim(fgets(STDIN));list($h,$m)=explode(':',$g);if($m==59&&$h==24){$h=1;$m=0;}$h>=12?$h=$h-12:0;$m[1]?$m[1]=$m[1]<5?0:5:0;$m2=sprintf("%02d",$m>0?$m/5:$m);$t="        00\n    11       01\n\n 10             02\n\n09               03\n\n 08             04\n\n    07       05\n        06";foreach(range(00,11)AS$y){$t=str_replace(sprintf("%02d",$y),$y==$h&&$h==$m2?'x':($h==$y?'h':($m2==$y?'m':'o')),$t);}echo $t; 

فهل تتوقع ياعزيزي انك قادر على انك تكتب حل باقل من 100 بايت بال php !

بانتظاركم

[phpfalcon]

الله يعطيك الف العافية يا الدحمي

سعيك الدائم وراء الافضل يدل على اهتمامك وثقافتك الواسعه في مجالك , لكن , انا اعتقد ان الالغاز البرمجية ( التعجيزية (فقط) ) لاتعود بالنفع على المبرمج والهدف منها فقط هو البهرجه

بالتوفيق يا الغالي

[لص القلوب]

السلام عليكم
شكلي كده يا عبدو ههزمك

بس ازاي عمليه التيست تتم؟

[لص القلوب]

328
المشكله بس في ايجاد فكره للعرض بس بطريقه اقل

[saanina]

جميل
طيب اعرض الكود خلينا نشوف
وناصل لكود اقل

[لص القلوب]

اخر كود توصلت له

كود: تحديد الكل

list($h,$m)=explode(':',fgets(STDIN));$a=array_fill(0,12,o);if($h>=12)$h-=12;while($m%5!=0)$m-=1;$a[$h/1]=h;$a[$m/5]='m';if($h==$m/5)$a[$h]='x';$t="        $a[0]\n    $a[11]       $a[1]\n\n $a[10]             $a[2]\n\n$a[9]               $a[3]\n\n $a[8]             $a[4]\n\n    $a[7]       $a[5]\n        $a[6]";echo$t;
 

[saanina]

وصلت ل 299!

كود: تحديد الكل

list($h,$m)=split(':',fgets(STDIN));$a=str_repeat(o,12);$h-=$h>=12?12:0;while($m%5)$m-=1;$a[$h/1]=h;$a[$m/5]=m;$h==$m/5?$a[$h]=x:0;echo preg_replace('/-(\d+)/e',"str_repeat(' ',\\1)","-8$a[0]\n-4$a[11]-7$a[1]\n\n $a[10]-13$a[2]\n\n$a[9]-15$a[3]\n\n $a[8]-13$a[4]\n\n-4$a[7]-7$a[5]\n-8$a[6]"); 

[saanina]

281 !

كود: تحديد الكل

<?list($h,$m)=split(':',fgets(STDIN));$a=str_repeat(o,12);$h-=$h>=12?12:0;while($m%5)$m-=1;$a[$h/1]=h;$a[$m/5]=m;$h==$m/5?$a[$h]=x:0;echo preg_replace('/-(\d+)\,(\d+)/e','str_repeat(" ",$1).$a[$2];',"-8,0\n-4,11-7,1\n\n $a[10]-13,2\n\n$a[9]-15,3\n\n $a[8]-13,4\n\n-4,7-7,5\n-8,6"); 

[لص القلوب]

نفس الفكره للاخراج عملتها
كده اعتقد ان هذا الفكره تبستط لاكتر ما يمكن

[saanina]

اذن سنتجه للغز اخر ,