sonraki »

[Skate]

Benim 80 bytelık versiyon ikinci kez çalıştığında hatalı sonuç verebiliyor. delimawi'nin 81 bytelık versiyonu en kısa versiyon önceki soruda. Bir kaç gündür foruma giremedim, o yüzden zamanında cevap yazamadım, kusura bakmayın.

Yeni soru çok keyifli gözüküyor. Ancak biraz geç iştirak edebileceğim. Siz arada optimizasyonun dibine vurun.

[eins]

3. Sorunun sonuclarinda da sanirim bir karisiklik var. Poke ile calisan daha kisa versiyonlar vardi hatirladigim kadari ile ama kabul edilmedi mi acaba o cozumler? Skate senin scroll edilince kaybilabilen ama daha kisa olan cozumun vardi benim de kaybolmayan ama 1 byte uzunu vardi diye hatirliyorum...

[wizofwor]

Benim 80 bytelık versiyon ikinci kez çalıştığında hatalı sonuç verebiliyor. delimawi'nin 81 bytelık versiyonu en kısa versiyon önceki soruda. Bir kaç gündür foruma giremedim, o yüzden zamanında cevap yazamadım, kusura bakmayın.

Atladığım bir şey varsa diye sormamın sebebi buydu. Programı bir kaç kez denedim ancak o hatalı sonuca denk gelmedim veya farketmemişim. O halde puan delimawi'ye gidiyor.

Sıralama: delimawi:30, skate:10 şeklinde oluyor.

3. Sorunun sonuclarinda da sanirim bir karisiklik var. Poke ile calisan daha kisa versiyonlar vardi hatirladigim kadari ile ama kabul edilmedi mi acaba o cozumler? Skate senin scroll edilince kaybilabilen ama daha kisa olan cozumun vardi benim de kaybolmayan ama 1 byte uzunu vardi diye hatirliyorum...

3. soruda poke ile çalışan çözümlerde çıktılar ekran temizlenmeden basıldığı için ikinci ve sonraki çalıştırmada rakamlar üst üste geliyordu. Çıktının ne olduğu anlaşılmıyordu. Bu yüzden değerlendirme dışı kabul ettim.

@wizofwor : Sorular orjinal olarak senden çıkıyorsa hakikaten güzel sorular buluyorsun

Sorular orjinal değil. Takip ettiğim bir platformdan beğendiğim soruların Basic 2.0'a uygun olanlarını yerelleştirerek kullanıyorum.

[Skate]

@delimawi: ben hızlı bir örnek yaptım ama müşterek yüzlerde ortak karakter basıyordu. sonra seninkini inceledim, seninki de basıyor. debug amaçlı olarak aşağıdaki kodu denersen göreceksin. space'e basa basa ilerle.

Kod:

0 inputa:sys65409:fori=1toa:forj=1toi*2:s=jand1:d=1042+j*2+i*78+s*6
1 poked+37,93:poked+s*78-2,78:poked+s*74,77
2 f=d+54272:pokef+37,i:pokef+s*78-2,i:pokef+s*74,i
3 geta$:ifa$=""then3
4 nextj,i

[Skate]

Hiç optimize etmeden gönderiyorum. Sadece kurallara tam uyan böyle bir şey sanırım.

Kod:

0 sys58692:inputa:fori=1toa:forj=1toi:poke214,i*2:print:poke211,16-i*2+j*4
1 print"N M";spc(36);"B   B":nextj,i:poke211,20-a*2:forj=2toi:print"M N ";:next

[Skate]

Kod:

0 a$(0)="N M":a$(1)="B   B":inputa
1 fori=0toa*2-1:forj=0toi/2:poke211,16-i+j*4:printa$(iand1);
2 next:print:next:poke211,18-i:forj=1toa:print"M N ";:next

[Skate]

145 byte versiyon.

Kod:

0 inputa:fori=1toa*2:forj=1to.5+i/2:pO211,16-i+j*4:?mI("B   BN M",6^(iand1),5);
1 next:print:next:poke211,22-i:forj=1toa:print"M N ";:next

[eins]

@skate, 3 nolu maddeyi sanirim yanlis yorumluyuyoruz. @wizofwor a soralim.

Bence tek karakter basilacak derken soylenmek istenilen yazilim tarafinda kac defa ust iste karakter basildigi degil ciktida tek karakter gorunmesi.

Yani her bir altigen bir birinden izole gorunmeyecek seklinde yorumladim ben. Asagidaki gibi olmayacak yani...

 / \  / \  / \
|   ||   ||   |
 \ /  \ /  \ /

[Skate]

bence unique karakter kast edilmiş, overwrite etmeyecek. benim anladığım o.

143 byte

Kod:

0 inputa:fori=1toa*2:forj=.5toi/2:pO211,18-i+j*4:?mI("B   BN M",6^(iand1),5);
1 next:print:next:poke211,22-i:fori=1toa:print"M N ";:next

[maverick]

Kod:

0inputa:leth=1024:foru=1to800:pokeh,32:h=h+1:next
1fori=1toa:forj=1toi:d=1040+j*4+i*78:fors=0to1
2poked+s*4,93:poked+s*82-39,78:poked+s*78-37,77:nexts,j,i

Daha uzun bir kod. Delimawi hocamızın kodunu alıp üst kısmı temizleme düşünülerek yapılmış bir çalışma.
(Başta güzel ama en alt satıra gelince kule üste kayıyor ve üst kısmı görüntüden gidiyor  )

[eins]

bence unique karakter kast edilmiş, overwrite etmeyecek. benim anladığım o.

Benim bir önceki algoritmada yakaladığım 118 byte'ı tutturamadım ama bu durumda tek loop içime sinen çözüm:

119 byte

Kod:

0 inputa:b$=" B":fory=1toa:c=19-y*2:a$=a$+"N M ":b$=b$+"   B"
1 printspc(c)a$spc(c*2)b$:next:printspc(c)mid$(a$,3,99)"N"

@hakankaptan, ellerine sağlık ancak zaten o üstlerdeki karışık olan kısımlar, basit ama uzun olan bir kodu kısaltırken ortaya çıkan sonuçlardı.

[eins]

Oldu oldu, 115 Byte ...

Kod:

0 inputa:fory=1toa:c=19-y*2:a$=a$+"N M ":b$=b$+"   B"
1 printspc(c)a$spc(c*2)" B"b$:next:printspc(c)mid$(a$,3,99)"N"

[Skate]

Senin bir önceki lame değildi ama bu lame işte. 112 byte

Kod:

0 inputa:fory=1toa:c=19-y*2:a$=a$+"N M ":b$=b$+"   B"
1 printspc(c)a$spc(c*2)" B"b$:next:printspc(c)mid$(a$,3)"N"

[Skate]

Benim yayınlanmamış versiyonlarda bu trick kullanılıyordu. Buraya da ekleyeyim.

110 byte

Kod:

0 inputa:fory=1toa:c=19-y*2:a$=a$+"N M ":b$=b$+"   B
1 printspc(c)a$spc(c*2)" B"b$:next:printspc(c)mid$(a$,3)"N

Basic parser satır sonundaki tırnak kapanmasa da sorun çıkarmıyor.

[eins]

Hadi bee gitti 20 puan diyecektim ama bu tricklerin ikisini de bilmiyordum ki. Sabaha kadar baksam aklima gelmezdi zaten. 20 puana iki trick ogrendim.