sonraki »

[wizofwor]

@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...

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

delimawi doğru yorumluyor tek karakter basılacaktan kastım çıktıda tek karakter görünmesiydi. Sadece çıktıyı kontrol ettiğim için, şekil doğru olduğu sürece karakterlerin üst üste basılmasını sorun etmiyorum.

[eins]

Neyse mid$ sız 107 byte, bakalım bu soru daha ne kadar kısalacak...

Kod:

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

[eins]

delimawi doğru yorumluyor tek karakter basılacaktan kastım çıktıda tek karakter görünmesiydi. Sadece çıktıyı kontrol ettiğim için, şekil doğru olduğu sürece karakterlerin üst üste basılmasını sorun etmiyorum.

@wizofwor, abi zaten kod o kadar evrildi ki, tek loop çözümler daha efektif şu aşamada, o soru zamanaşımı oldu...

[Skate]

@delimawi, kesinlikle kazanmayı sen hak ettin ama...

106 byte

Kod:

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

[eins]

@skate, ipi göğüsleyen kazanır.
O boşluklardan çok işkillenmiştim zaten ama sabah fazla vakit ayıramadım...

[Skate]

bu arada bir de uğraştığım salak çözümlerden birini paylaşmak istiyorum.

öncelikle 93 bytelık şu versiyonu elde ettim. ilk satıra fazladan pipe, son satırın başına sonuna fazladan / \ ekliyor.

Kod:

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

bunu 106 byte'lık versiyondan daha kısa bir yöntemle kurallara uygun hale getirmek zor ama en azından ilk pipe karakterini yok etmek için ekstra değişken kullanmaktan daha kısa olabileceğini düşünerek şöyle bir şey denedim. ASM'de klasiktir ama Basic'de ilk kez denemiş oldum.

Kod:

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

Basic'den ilk self modifying code denemem olarak kayıtlara geçsin lütfen. Tabii c$=" ", sonrasında c$="|" kullanarak da aynı çözüm daha temiz biçimde uygulanabiliyor. Sonuç olarak poke source'u değiştirdiği için ikinci kez düzgün çalışmıyor. Eğlencelik olarak paylaşıyorum.

[eins]

Hahahah, bu güzelmiş... Yıllar önce henüz c falan bilmiyorken, bir arkadaşın "basic de recursion yapamazsın onun için c daha iyidir" demesi çok ağırıma gitmişti, basic ile kendi sctack'imi array değişkenler içinde tutup "recursive" çalışabilen bir kod yazmıştım, o geldi aklıma...

[Skate]

bu arada wizofwor'un açıklamasından sonra daha kısa yöntem buldum. daha da epey kısalır gibi. eski metod'u unutun. 100 byte'ın altına iner bu. ben hep karakterler çakışmayacağa takılmıştım.

103 byte optimize edilmemiş versiyon

Kod:

0 inputa:fori=1toa:forj=1toi:poke214,i*2:print:poke211,16-i*2+j*4
1 print"N Mq....B   Bq....M N":nextj,i

doğrudan copy & paste çalışmaz, q.... olan kısımlar
<cursor down><cursor left><cursor left><cursor left><cursor left>
olacak.

[Skate]

94 byte

Kod:

0 inputa:fori=1toa:print:printspc(61-i*2);:forj=1toi
1 print"N Mq....B   Bq....M NQQ]";:nextj,i

q = <cursor down>
. = <cursor left>
Q = <cursor up>
] = <cursor right>

[Skate]

86 byte

Kod:

0 inputa:fori=1toa:print:printspc(60-i*2);:forj=1toi:print"BqM NQBQ....N Mq";
1 nextj,i

[wizofwor]

@Skate:

Cursor tuşları için petcat kodlarını kullanabilirsin.
{down}{left}{right}{up}

Tabi bu şekilde text editörde karakter sayısı fazla görünecek. Onu da parmak hesabıyla düzeltiriz artık :p

[Skate]

Öyle de yapsam copy&paste ile aktarılamıyor Vice'a. Vice'dan copy ettiğim haliyle paste ediyorum buraya. Doğrudan copy&paste sağlamadıkça tek tek uğraşmaya gerek yok.

[eins]

Ben de aşağıdaki cümleden kontrol karakterlerinden sadece bu 3 tanesi kullanılabilir diye anlamıştım copy/paste sebeplerinden ötürü, yanlış anlamışım. Bu mantık aklıma geldi ama hiç üzerine bile gitmedim... :/

Kullanılacak karakterler SHITF+N, SHIFT+M ve SHIFT+'-'

Ben de tam aşağıdaki yöntemi optimize etmeye girişiyordum, kaldım lök gibi kod karşımda ...

Kod:

0 inputa:fory=0toa*2:c=(y=a*2)+y-1:a$="N M "+a$+"   B
1 printspc(19-c)mid$(a$,(yand1)*(y*4+7)-c+y,2*c+5):next

[Skate]

Patcat formatı da şöyle bir şey olsa gerek. Test edemedim henüz.

Kod:

0 inputa:fori=1toa:print:printspc(60-i*2);:forj=1toi:print"B{DOWN}M N{UP}B{UP}{4 LEFT}N M{DOWN}";
1 nextj,i

Edit: Denedim, çalışıyor. Kullanım biçimi;

petcat -o basic_output.prg -w2 basic_source.txt

[Skate]

@delimawi: Ben ilk başta bu yöntemi kullanacaktım ama unique karakter olayını yanlış anladığım için hiç girişmedim. Wizofwor benim yanlış anladığımı açıkladığı anda aklıma tekrar bir göz atmak geldi. Aslında ilk başta yanlış anlamış olmasam ilk deneyeceğim şey buydu.