|
Skate
|
 |
« Yanıtla #240 : Mayıs 22, 2017, 17:00:35 ÖS » |
|
Gereksiz boşluklardan ve loopun fazla saymasından temizlenmiş son versiyon. Aklıma yeni bir trick gelmedikçe kendi adıma sona ulaştım diyebilirim. 73 byte 0 inputa:a$="B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}":fori=1toa:b$=b$+a$:printtab(60-i*2)b$:next
|
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #241 : Mayıs 22, 2017, 19:30:09 ÖS » |
|
Yarışma dışı eğlencelik versiyon.  0 a$="{DOWN}{2 LEFT}MBN{2 UP}{3 LEFT}NBM{DOWN}{LEFT}CW{LEFT}":fori=1to9:b$=b$+"WC"+chr$(48+i)+a$:printtab(60-i*2)b$:next
|
|
|
|
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #242 : Mayıs 22, 2017, 20:50:36 ÖS » |
|
..
|
|
|
|
« Son Düzenleme: Mayıs 24, 2017, 09:52:21 ÖÖ Gönderen: delimawi »
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
Skate
|
|
« Yanıtla #243 : Mayıs 22, 2017, 21:44:08 ÖS » |
|
ilk versiyondan kalan bir şeydi. sen bana kodunda a$ değil de b$ kullanma nedenini açıkla yeter.  |
|
|
|
« Son Düzenleme: Mayıs 22, 2017, 21:45:52 ÖS Gönderen: Skate »
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #244 : Mayıs 22, 2017, 21:53:00 ÖS » |
|
Bu son lame kodumdan mı bahsediyorsun? Sen kodunda tek a$ kullandığın için doğrudan oraya içeriği paste ettim, b$ öylece kaldı... Aslen bunu yem olarak bırktığını düşünüyorum hala. Biri oltaya takılınca yapıştıracaksın gibi geliyor bir 64 byte... |
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
hades
|
|
« Yanıtla #245 : Mayıs 23, 2017, 00:07:24 ÖÖ » |
|
Bu optimizasyonla windozu baştan yazsanız 100'de 1'i kadar kaplar harddiskte |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #246 : Mayıs 23, 2017, 02:28:46 ÖÖ » |
|
Bu optimizasyonla windozu baştan yazsanız 100'de 1'i kadar kaplar harddiskte ...ve kablumbağa hızında çalışır. işletim sistemi yazarken hız optimizasyonunu ön planda tutmak daha iyi sonuç verir kanaatindeyim. Ama illa da az yer kaplayan OS diyorsan 1.44 floppy'e sığanı var. http://menuetos.net/ |
|
|
|
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #247 : Mayıs 24, 2017, 09:52:09 ÖÖ » |
|
Son gönderdiğim cevabı geri çekiyorum, zira aslen bir optimizasyon içermiyor. Daha kısası gelmediği için bu notu düşme gereği hissettim. Bu soru bu yöntem ile @skate'in hakkı... |
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
wizofwor
|
|
« Yanıtla #248 : Mayıs 24, 2017, 11:19:02 ÖÖ » |
|
Son gönderdiğim cevabı geri çekiyorum, zira aslen bir optimizasyon içermiyor. Daha kısası gelmediği için bu notu düşme gereği hissettim. Bu soru bu yöntem ile @skate'in hakkı... Cevabı silmek yerine üstünü çizseydin keşke. Değerlendirme dışı da olsa en kısa cevap yine oydu. Neyse bu durumda skate unuttuğu gereksiz değişkeni kaldırarak tekrar yazar artık. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #249 : Mayıs 24, 2017, 17:25:32 ÖS » |
|
skate unuttuğu gereksiz değişkeni kaldırarak tekrar yazar artık.
Tabii ki yazmam. Cidden bu işi hırsla yapacak adama benziyor muyum? Delimawi benim gerçekten saatlerce baktığım kodda göremediğim şeyi görmüş (çünkü ben oraya bakmıyordum, 16 hamleden kısa hexagon çizdirmeye odaklanmıştım). Yani son derece Delimawi'nin hakkıdır, mesajı tekrar eski haline getirmesi yeterli olacaktır. Benim aklımdan geçen şey Delimawi ile süper coop kod yazdığımız ve bunu gerek scene, gerek profesyonel hayatta kullanmamız gerektiği. Yok kodu ben yazmışım da başkası kısaltmış, inanın aklımdan geçen en son şey ki önceki sorularda aynısını ben de yaptım. |
|
|
|
|
Logged
|
|
|
|
|
Skate
|
|
« Yanıtla #250 : Mayıs 25, 2017, 01:28:23 ÖÖ » |
|
Mantıken çalışmıyor olması lazım ama çalışıyor. Hmmm... |
|
|
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #251 : Mayıs 25, 2017, 12:16:49 ÖS » |
|
Hahahaha güzel trick, sandalyeden düşüyordum...  61 byte desek mi acaba? Bence dememiz lazım, sayınca 61 byte ne de olsa...  |
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
Skate
|
|
« Yanıtla #252 : Mayıs 25, 2017, 12:36:43 ÖS » |
|
Aslında amacım delete char kullanarak bir optimizasyon yapmaktı ama arada maymunluğa vurdum işi. Aşağıdaki de iyiden iyiye eğlencelik oldu. |
|
|
|
Logged
|
|
|
|
|
eins
|
|
« Yanıtla #253 : Mayıs 25, 2017, 13:08:34 ÖS » |
|
Ben de insert keycodunu kullanabilir miyim diye uğraştım durdum. Olmadı...
Sağa sola git gel yapmak yerine sağa kadıra kaydıra olur gibi hissetmiştim halbuki.
|
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
eins
|
|
« Yanıtla #254 : Mayıs 25, 2017, 13:11:51 ÖS » |
|
Bir de uğraştığım bir başka optimizasyon, A$=A$+"..." yerine A$="..."+A$+"..." yapmaktı. Bu sayede her bir satır aynı hizadan başlayabilecekti. 60-i*2 de kullandığın *2 yi A$="ll"+A$+"..." şeklinde yedirecektim sözde. Hatta bir de en başta ekranın ortasından başlayabilsem, print sonrasında tab vb de kullanmaya gerek kalmayacaktı.
|
|
|
|
|
Logged
|
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
|
|
|
|
Commodore
