sonraki »

[Skate]

Benim versiyonu byte byte render edecek hale getirdim. Daha da optimize edilebilir.

164 byte

Kod:

0 poke53265,59:poke53272,24
1 forc=-4to5:m=63-y/.7:poke9e3+y+(yand-8)*39+c*8,b:b=0:fori=0to7:z=abs(c*8+i)
2 b=b+b-(z<y/3andz>-morz<mand32>m):nexti,c:y=y+1:print:goto1

Edit 1: Şekilden ödün verince bir iki byte daha uçuyor ama şekli korumaya gayret ettim.
Edit 2: 33>m değil de 32>m ile daha düzgün bir şekil çıkıyor. Onu düzelttim.

[Skate]

Ek bir optimizasyon olmaksızın iki satıra indirerek 163 byte'a düşürülebiliyor. Satırlar 80 karakterden oluşmak zorunda diye düşünürsek daha 3 byte optimize edilmesi lazım. Ancak hem copy&paste, hem petcat ile compile edilebilen versiyon aşağıda.

Kod:

0 poke53265,59:poke53272,24:fOc=-4to5:m=63-y/.7:poke9e3+y+(yand-8)*39+c*8,b:b=0
1 fOi=0to7:z=aB(c*8+i):b=b+b-(z<y/3andz>-morz<mand32>m):neXi,c:y=y+1:print:goT0

[Skate]

O baştaki 2 poke'dan sonunda kurtulabileceğimi biliyordum!

156 byte

Kod:

0 print:forc=-4to4:poke53269+c,43-c*4:m=63-y/.7:poke9e3+y+(yand-8)*39+c*8,b:b=0
1 fori=0to7:z=abs(c*8+i):b=b+b-(z<y/3andz>-morz<mand32>m):nexti,c:y=y+1:goto0

[Skate]

Aynı boyutta biraz daha derlenmiş, toparlanmış versiyon. Şu 54100'den bir şeyler çıkarabilsek. 54100 = 541e2 aynı yeri kaplıyor. Ama o sıfırlar yok mu o sıfırlar...

Kod:

0 print:m=63-y/.7:forc=-4to5:poke54100+c,47-c*4:poke9e3+y+(yand-8)*39+c*8,b:b=0
1 fori=0to7:z=abs(c*8+i):b=b+b-(z<y/3andz>-morz<mand32>m):nexti,c:y=y+1:goto0

Edit: "m" gereksiz biçimde loop içinde tekrar tekrar hesaplanıyordu. loop dışına çıkarttım.

[eins]

Oha, iki satıra inmişsin, bitmiş bu iş...

[eins]

Ben 159 da kaldım... Aslında teorik olarak iki satıra sığabilir görünüyor, yerleştirebilsem 2 byte daha gidecek, 157 olacak. Neyse başka türlü bir yöntem var mı bakınmaya devam...

Kod:

1 poke8191+a,d:e=aand7:h=a/40and-8:y=h+e:d=0:print:forp=0to7
2 w=abs(a-e-h*40+p-99)/2:poke53265+p,59-5*p
3 d=d+d-(w*4<yandw+48>yory>26andy+w<48):next:a=a+1:goto1

[Skate]

Bu arada tek satır azaldığında tek byte kazanıyoruz, iki byte değil. CR sayılmıyor biliyorsun.

0 print
1 print

7+7=14

0 print:print

13

Kazanç:
Satır numarası + 1 boşluk = 2 karakter

Kayıp:
İki nokta karakteri = 1 karakter

[Skate]

Bu arada hızlıca ASM versiyonunu kodladım. Henüz çok ham. ASM'ye özel hiç bir optimizasyon yok desem yeridir. Birebir basic versiyonunun aynısı. Hatta "/3" yazan yeri bile çakma bit shiftinglerle /3'e yakın bir işlemle çözdüm. Bunu adam etmek de bonus eğlence olacak.

[eins]

Bu arada tek satır azaldığında tek byte kazanıyoruz, iki byte değil. CR sayılmıyor biliyorsun.

Evet haklısın. Ben editorde select edip, sonra satır*2 kadar düşüyorum, editor CR ve LF yi de saydığı için. Oraya takılmış kafam...

[Skate]

ASM versiyonunun elini yüzünü düzelttim. 192 byte ama bilerek gereksiz şeyler harcıyorum (tüm ekranı temizle, tam ortaya bas, border'ı siyah yap v.s.). Ama saatle bekleten basic versiyonlarından sonra görmüşken böyle görmek gerek di mi ama.

[wizofwor]

Arkadaşlar şehir dışında olduğum için bu gün yeni soru gelemeyecek. Ancak pazar günü gönderebileceğim.
Kusura bakmayın.

[Skate]

@wizofwor: olm zaten dur iki dakika da nefes alalım.

Asm versiyonunu basic versiyonunun source code uzunluğunun altına indirebilir miyim diye baktım, indirebiliyormuşum. Şimdi sırada basic'den üretilen PRG boyutunun altına indirmek var.

[eins]

Benim hala basic versiyonu içime sinmiyor. Daha kısalabilir bence. Biraz bakınayim.

[Skate]

Evet kısalabilir.

154 byte

Kod:

0 print:m=8-y/5:forc=-4to5:poke54100+c,47-c*4:poke9e3+y+(yand-8)*39+c*8,b:b=0
1 fori=0to7:z=abs(c+i/8):b=b+b-(z<y/21andz>-morz<mand4>m):nexti,c:y=y+1:goto0

[joker_]

yok artık. Bu gidişle 100 byte'ın altına inecek Ellerinize sağlık, zevkle takip ediyorum.