sonraki »

[eins]

ben de bel altı vurmayı denedim, 94 karakter ile elimde patladı... Ama değişik bir çözüm olarak çalışıyor...

Kod:

1 geta$:printa$;:k$(i)=k$(i)+a$:i=i-(a$=" "):ifa$<>chr$(13)then1
2 fort=1toi-1:printk$(t);:next

[emarti]

ben de bel altı vurmayı denedim, 94 karakter ile elimde patladı... Ama değişik bir çözüm olarak çalışıyor...

Kod:

1 geta$:printa$;:k$(i)=k$(i)+a$:i=i-(a$=" "):ifa$<>chr$(13)then1
2 fort=1toi-1:printk$(t);:next

HALUK LEVENT için LEVENT çıktısı var.

[eins]

Evet haklısın, 3 kelimeden az mı kontrolü gerekiyor buna...

[Skate]

Farklı çözümlerin hiçbiri yeterince kısa olmuyor ancak denemelerimin iki tanesini paylaşıyorum. İkisi de kurallara uyuyor. En az iki kelime ile çalışıyorlar, tek harf/kelime girilirse patlayabiliyorlar ama sanırım önceki çözümlerin çoğu da böyle zaten.

Sağdan soldan string'i scan etmeyi sub routine kullanarak yapmayı denedim. Kısa olmayacağını tahmin etmiştim ancak yine de "belki bir şekilde optimize edilir" diye yola çıktım. Tabii ki edilemedi.

Kod:

0 inputa$:d=1:gosub1:s=i:d=-1:i=len(a$):gosub1:printmid$(a$,s+2,i-s):end
1 i=i+d:ifpeek(512+i)>32then1
2 return

Bu ise çok daha temiz bir çözüm. Tek scan'de m(0)'da ilk space karakterini, m(m(0))'da ise son space karakteri ile ilki arasındaki karakter sayısını bırakıyor. Daha önemlisi her ikisini de mid$ beklediği değerler şeklinde hesaplıyor (index 1'den başlayacak şekilde). Ama yine de 93 byteları buluyor. Optimize edilse bile 82'nin altına düşmeyeceği aşikar.

Kod:

0 inputa$:fori=2tolen(a$):ifpeek(510+i)=32thenm(m(0))=i-m(0)
1 next:printmid$(a$,m(0),m(m(0)))

82 byte'lık çözümü ise bir iki byte kısaltmanın bir kaç farklı yolunu buldum ama hepsi belli kural dışı şeylerle son buldu. Örneğin doğru çalışıp error veren kısa versiyonlarım var. Şimdilik adam gibi bir çözüm bulmadıkça o versiyonları paylaşmıyorum.

[eins]

İkinci çözümün güzelmiş. Bende bunun türevleri üzerine çalıştım ama 90 byteların altına inmedi...

Kod:

0 inputa$
1 s=asc(a$)>32:e=right$(a$,1)>" ":a$=mid$(a$,1-s,len(a$)+s+e):ife+sthen1
2 printa$

[eins]

Biraz lame oldu ama 81 byte ...

Kod:

0 inputa$:fori=1to81:ifmid$(a$,i,1)=" "thenprintmid$(a$,a+1,i*b-a);:a=i:b=1
1 next

[Skate]

Elimde şöyle bir versiyon var, senin son optimizasyonla birlikte 76 byte'a kadar düşüyor. Sıkıntı doğru sonucu yazdıktan sonra illegal quantity error vermesi.

Kod:

0 inputa$
1 i=i+1:ifpeek(511+i)=32thenprintmid$(a$,a+1,b*i-a);:a=i:b=1
2 goto1

edit: 2. kez çalıştığında da sorunlu bu versiyon, bunu es geçebilirsiniz

[wizofwor]

Sizin bu karşılıklı aşık atışması misali optimizasyonlarınızı okumak ne kadar zevkliyse, sıraya koyarak tasnif etmek de bir o kadar zor.

Üçüncü sorunun doğru cevabını açıklamamıştım. Delimawi'nin aşağıdaki 73 karakterlik kodu kazandı. Bu durumda delimawi:20 skate:10 puan oluyor.

Kod:

0inputa:fori=1toa
1d%=rnd(1)*9:ife(d%)goto1
2printchr$(d%+49);:e(d%)=1:next

4. soruyu da gözden kaçırdığım bir şey yoksa Skate'in aşağıdaki 80 karakterlik kodu kazanacak. 

Kod:

0 inputa$:fori=1to81:ifpeek(511+i)=32thenprintmid$(a$,a+1,(a>0)*-i-a);:a=i
1 next

Atladığım bir şey varsa yazın lütfen.
 

[emarti]

wizofwor 4. soru nerede çözümü basic ile uzun olsun mümkünse datalar ile 10 puan almak istiyorum

[wolfiem]

wizofwor 4. soru nerede çözümü basic ile uzun olsun mümkünse datalar ile 10 puan almak istiyorum

Her soruya basic & asm çözümlerini göndererek azimli katılımcı 10 puanını hakettin bence emarti

[wizofwor]

4. sorunun en kısa cevabı Skate'ten gelmiş oldu.

Bu durumda Delimawi ve Skate 20'şer puandalar.

5. Soru 20 puanlık soruların ilki olacak. Günün anlam ve önemine uygun bir soru düşündüm.
Biliyorsunuz eskiden 19 Mayıs'larda stadyumda öğrenciler kule yaparlardı. Biz de petscii karakteriyle kule yapacağız.

Soru 5: Altıgen Kulesi

Petscii karakterliyle oluşturulan altıngenleri üstü üste dizerek bir çizen bir program yazın.
Öyle ki:

1. Kulenin yüksekliği kullanıcı girişi ile belirlenecek. Ancak 1'ile 7 kat arasında olacak.
2. Sadece 1 ve 7 aralığındaki değerler test edilecek. (1 ve 7 dahil)
2. En üst katta 1 altıgen olacak. Katları indikçe altıgenlerin sayısı birer artacak.
3. İki altıgenin müşterek yüzü için tek karakter basılacak.
4. Programın çıktısı boş bir satıra alınacak. Yani eğer ekran belleğine poke ile karakter yerleştirecekseniz kullanacağız satırı önceden temizlemeniz gerekiyor.
5. Ekte örnek ekran çıktısı var. Kullanılacak karakterler SHITF+N, SHIFT+M ve SHIFT+'-'

   

[eins]

Oooo tam @skate'lik soru gelmiş. Sabahlar olmasın, tam yatacaktım, gene takılıp kalıcam şimdi.

[eins]

Şöyle bir bodoslama başlangıç yapalım...

Kod:

0 inputa:printchr$(147):fori=1toa:forj=1toi:d=1040+j*4+i*78
1 poked,93:poked+4,93:poked-39,78:poked+43,78:poked-37,77:poked+41,77:nextj,i

Küçük bir optimizasyon:

Kod:

0 inputa:sys65409:fori=1toa:forj=1toi:d=1040+j*4+i*78     
1 poked,93:poked+4,93:poked-39,78:poked+43,78:poked-37,77:poked+41,77:nextj,i

Bir küçük optimizasyon daha...

Kod:

0 inputa:sys65409:fori=1toa:forj=1toi:d=1040+j*4+i*78:fors=0to1     
1 poked+s*4,93:poked+s*82-39,78:poked+s*78-37,77:nexts,j,i

[i_r_on]

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

[eins]

121 Byte ...

Kod:

0 inputa:sys65409:s=1:fori=1toa:forj=1toi*2:d=1040+j*2+i*78+s     
1 s=-s:poked-s*2,93:poked-s*41,78:poked-s*39,77:nextj,i

EDIT: 119 byte

Kod:

0 inputa:sys65409:fori=1toa:forj=1toi*2:s=(j*2and2)-1:d=1042+j*2+i*78+s*3
1 poked,93:poked+s*39,78:poked+s*37,77:nextj,i

EDIT: 118 Byte

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:nextj,i