sonraki »

[emarti]

@emartı: Neredeyse en kısa kodu ASM ile yazacaksın. Yalnız algoritmada ufak bir eksiklik var.

Eğer ilk isimle soyad arasından birden fazla isim varsa hepsini döndürmeli.

COMMODORE AMIGA COMPUTER BASIC ASM girdisi için
AMIGA COMPUTER BASIC döndürmesi lazım.

Hmmm sorudaki ikinci isim beni yanılttı sanırım. ilk isim ve soyad hariç yani. @wizofwor bu nasıl ikinci isim bari ikinci isimler diye belirtseydin 

[emarti]

ikinci isimler basic && asm kodlarım

Kod:

0 for x=0to54:readd:poke828+x,d:next:sys828
1 data 169,63,32,210,255,160,0,32
2 data 207,255,201,32,240,2,208,247
3 data 32,207,255,153,115,3,200,201
4 data 32,240,20,201,13,208,241,172
5 data 113,3,169,0,153,115,3,160
6 data 3,169,114,32,30,171,96,140
7 data 113,3,76,76,3,0,13

Kod:

*=$033C

start
        LDA #$3F         ; ?
        JSR $FFD2
        
        LDY #$00         ; input
L2      JSR $FFCF
        CMP #$20         ; ilk space ikinci ada geçiş
        BEQ L3
        BNE L2
L3      JSR $FFCF
        STA name+1,Y     ; ikinci ad saklamaya başla
        INY
        CMP #$20         ; ikinci space ile saklamayı bitir
        BEQ KONUMY
        CMP #$0D         ; return bekle
        BNE L3
        
        LDY SAKLAY
        LDA #$00         ; $AB1E'den dolayı dizi $00 ile bitmeli
        STA name+1,Y
        LDY #>name
        LDA #<name
        JSR $AB1E        ; yazdır
        RTS

KONUMY  STY SAKLAY       ; space ile Y sakla
        JMP L3

SAKLAY  BYTE $00
name    BYTE $0D

[Skate]

Henüz kendim kurcalamadım ama ilk optimizasyonu yazayım buraya.

Kod:

1 inputa$:fori=1to81:ifmid$(a$,i,1)=" "thena=a-(a=0)*i:b=i
2 next:printmid$(a$,a,b-a)

String length almaya gerek yok. Max input buffer 80 karakter zaten. Bırak sonuna kadar scan etsin.

[Skate]

Kendi çözümüm.

82 byte with exit

Kod:

0 inputa$
1 i=i+1:c=peek(512+i):ifc=32thenb=b+1
2 ifb=1thenprintchr$(c);
3 ifb<2then1

77 byte infinite loop

Kod:

0 inputa$
1 i=i+1:c=peek(512+i):ifc=32thenb=b+1
2 ifb=1thenprintchr$(c);
3 goto1

[Skate]

"Eğer ilk isimle soyad arasından birden fazla isim varsa hepsini döndürmeli." lafını şimdi fark ettim. Baştan düzgün açıklayacaktın be kardeşim.

[Skate]

Şu optimizasyon bir versiyon olarak dursun, bir şeyler deniyorum.

82 byte

Kod:

1 inputa$:fori=1to81:ifpeek(510+i)=32thena=a-(a=0)*i:b=i
2 next:printmid$(a$,a,b-a)

[Skate]

Henüz arzu ettiğim kıvamda değil ama;

81 byte

Kod:

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

[Skate]

Input buffera sığacak hale getirdim, 80 byte. Ama denediğim en az 5 yöntem hüsranla sonuçlandı.

Kod:

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

[eins]

@skate, senin input buffer tatktiğin aklıma gelmişti ama nedense ben onu 10byte lık klavye bufferı diye düşünüp, 10 karakter üzerinde çalışmaz diye doğrudan es geçtim. Şimdi bu gözle bir daha bakim diyecem de sen yapılabilecek herşeyi yapmışsındır...

[eins]

@skate,
len'e gerek yok diyorsun ama başıma şu geldi.
yeni resetlenmiş makinada önce 12 34 56 78 denedim, düzgün çalıştı.
Sonra örneğin 45 67 denedim, patladı...

[Skate]

45 67 valid input sayılır mı? ortada en az bir kelime bulunması gerekmiyor mu? ortada bir kelime bulunduğu sürece düzgün çalışıyor. önceki yarışma sorularında da inputun düzgün olacağı varsayımı vardı.

[Skate]

şimdi baktım "haluk levent :" örneklerin arasında varmış, o zaman doğru tespit.

[Skate]

Bu durumda 82 byte'a geri dönüyoruz. Ancak hala len kullanmamakta kararlıyım. len kaka, çok ekstra karakter harcıyor.

Kod:

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

[eins]

Şu mid$'a da ben gıcığım. string değişkenin karakterlerine dogrudan indexle erişmenin kısa yolnu bulsana. Pascaldaki s[ i ] gibi... Bu string değişkenler hafızada nerede duruyor? Sabit mi ki?

[Skate]

C64 basic Atari ya da diğer basiclerdeki gibi stringlere özel bir memory space ayırmıyorlar. Yanlış hatırlamıyorsam basic source'unun bittiği yerin ucundan mı ne ilerliyordu, öyle saçma salak bir mantığı vardı. Yani o alana access etmeyi düşünüyorsan CBM Basic'in spastik memory allocation'ıyla cebelleşmen gerekir.

Ben daha çok hazır Basic & Kernel rutinlerini kullanmayı tercih ediyorum. Ama basic'den call etmek de zahmetli. Mesela şöyle versiyonlar var elimde ama çok daha uzun.

Kod:

0 poke188,2:inputa$:fori=1to81
1 ifpeek(511+i)=32thenpoke183,i-a:poke187,a:b=a:a=i:ifb>0thensys62917
2 next