sonraki »

[eins]

uyku tutmadı, 182 byte

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:y=int(a/320)*8+(aand7):d=0
2 print:forp=0to7:w=abs(((a-(yand56)*40)and-8)+p-99)*2/3
3 d=d*2-(w*4<yandw>y-48ory>26andw<48-y):nextp,a

[eins]

179 byte ...

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:y=int(a/320)*8+(aand7):d=0
2 print:forp=0to7:w=abs((a-(yand56)*40and-8)+p-99)*.6
3 d=d*2-(w*4<yandw>y-48ory>26andw<48-y):nextp,a

[Skate]

King of the filled stars. Ama o andlerin bir kısmından kaçış yok gördüğün gibi.

İlk gözüme çarpan optimizasyon.

Kod:

y=int(a/320)*8+(aand7)

yerine

Kod:

y=a/40and-8oraand7

175 byte

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:y=a/40and-8oraand7:d=0
2 print:forp=0to7:w=abs((a-(yand56)*40and-8)+p-99)*.6
3 d=d*2-(w*4<yandw>y-48ory>26andw<48-y):nextp,a

Şaka maka 172 byte'ın altına inme potansiyeli yüksek.

[eins]

Artık cidden yatıyorum, 176 byte, dolu üçgen ...

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:y=(a/320or0)+(aand7)/8
2 d=0:print:forp=0to7:w=abs((a-(yand7)*320and-8)+p-99)/12
3 d=d+d-(w*4<yandw+6>yory>3and6>y+w):nextp,a

[eins]

Süpersin, ben 176 ya kadar gelebilmiştim ...

[Skate]

174 byte

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:e=aand7:y=a/40and-8ore:d=0
2 print:forp=0to7:w=abs(a-e-(yand-8)*40+p-99)*.6
3 d=d*2-(w*4<yandw>y-48ory>26andw<48-y):nextp,a

Edit: Senin optimizasyonlarını görmeden yaptım bunları. Seninkilerle birleşirse daha da uçabilir, bakıyorum şimdi.

[eins]

174 byte, hala potansiyel var ama halim kalmadı...

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:y=a/40and-8oraand7:d=0
2 print:forp=0to7:w=abs((a-(yand56)*40and-8)+p-99)/2
3 d=d*2-(w*4<yandw>y-48ory>26andw<48-y):nextp,a

[eins]

26, 24 olsa da gözle bir fark olmuyor. Bundan yola çıkarak çarpanı küçülterek, örneğin /4 yapabilirsek, sabit değerler, w, 12, 6, 12 yapılabilir. Bu da teorik olarak 3 byte kısaltır. Ama cidden haim kalmadı düşünemiyorum artık...
İyi geceler...
 

[Skate]

171 byte

170'in altına bile iner derken şaka yapmıyormuşsun.

@wizofwor: Yöntem delimawi'ye ait olduğu için ben farklı bir yöntem bulmadığım sürece benim yaptığım optimizasyonları yarışma dışı tutuyorum.

Kod:

1 poke53265,59:poke53272,24:fora=0to3e3:poke8191+a,d:e=aand7:h=a/40and-8
2 y=hore:d=0:print:forp=0to7:w=abs(a-e-h*40+p-99)*.6
3 d=d+d-(w*4<yandw+48>yory>26andy+w<48):nextp,a

[eins]

Şu anda son kodu, y=hore, yehuuu, horaaa, hobareyyyy şeklinde görüyorum... Yarışma bahane, eğlence şahane.

[eins]

Gel *.6 yı /2 yapalım, 170 byte olsun, gene yıldız olsun...

[Skate]

sabit değerler, w, 12, 6, 12 yapılabilir. Bu da teorik olarak 3 byte kısaltır.

Bu arada bunu tam anlayamadım. 12,6,12 olduğunda sadece 1 byte kısalmış olmuyor mu?

Edit: w*4 -> w oluyor, anladım.

[Skate]

170 bytelık versiyonu buraya bırakıp yatıyorum, 170'in altına kesin inecek bu.

Kod:

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

[hades]

648 nolu adrese bir baksanıza. poke 648, grafik ekranı/256 ve print "clr" ile bir şeyler çıkar mı?
https://www.c64-wiki.com/wiki/648

[eins]

169 byte ...

Kod:

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