sonraki »

[Skate]

Daha kısası olabilir. Ufaklığı yatıriim, bakıcam. Annesi şehirdışında, hem analık, hem babalık yapıyorum. (itinayla Yeşilçam'a bağlanır)

[Skate]

Bu tricke başvuran olur ihtimaline karşı hemen paylaşayım.

Bence legal değil ama problemi bu da çözüyor. Sayıyı rakam rakam tek tek girmenizi bekliyor. dediğim gibi ben bunu legal bulmuyorum. ama çözüm sağlıyor.

Kod:

0 fori=1to9:inputa:t=t+a:next:print45-t

[Skate]

Biraz daha kısası legalinden. Hadi kurcalayın bakalım. Bunda trickler devreye girmeye başladı.

edit: a$'a gerek yok a yeterli. 1 byte uçurdum.

Kod:

0 inputa:fori=0to8:t=t+peek(512+i):next:print477-t

[i_r_on]

Biraz daha kısası legalinden. Hadi kurcalayın bakalım. Bunda trickler devreye girmeye başladı.

edit: a$'a gerek yok a yeterli. 1 byte uçurdum.

Kod:

0 inputa:fori=0to8:t=t+peek(512+i):next:print477-t

Daha neyini kurcalayalım hocam, sen bitirmişin işi

[Skate]

Daha neyini kurcalayalım hocam, sen bitirmişin işi

Bazen çok basit şeyler gözden kaçabiliyor. Örneğin şu ikisi aynı uzunlukta ama daha kısa da olabilirdi ikincisi.

Kod:

0 inputa:fori=0to8:t=t+peek(512+i):next:print477-t

Kod:

0 inputa:fori=512to520:t=t+peek(i):next:print477-t

Böyle şeylerle de daha kısası bulunabiliyor. Şu an için bulamadım ama en kısası budur demiyorum.

[Skate]

Fikir vermek açısından, aynı uzunlukta bir örnek daha;

Kod:

0 inputa:fori=0to8:t=t+peek(2^9+i):next:print477-t

Hep buralardan çıkıyor size optimizasyon olayları.

[eins]

Çok uykum var umarım bir hata yapmamışımdır.
Konuyu görünce yatamadım...

Kod:

0 inputa:fori=0to8:t=t+peek(2^9+i):next:print477-t
vs
0 inputa:fori=0to8:t=t+53-peek(512+i):next:printt

[Skate]

Denediklerim arasında bunu bulup da senin versiyonunu bulamamak da ekstra salaklık tabii. En kısası seninki kesinlikle.

Kod:

0 inputa:fori=49to57:t=t+i-peek(463+i):next:printt

[emarti]

Hibrit ve uzun çözümlere devam benden size

Kod:

9 REM *** HANGI RAKAM EKSIK ***
10 INPUT A$:PRINT CHR$(147)A$
30 FOR X=0 TO 31: READ D:POKE 49152+X,D: NEXT
40 SYS 49152:END
1000 DATA 162,0,142,31,192,189,0,4
1010 DATA 41,15,24,109,31,192,141,31
1020 DATA 192,232,224,9,208,239,169,93
1030 DATA 237,31,192,141,10,4,96,0

$C000'dan başlayan assembler kodu

Kod:

*=$C000

start
        LDX #$00
        STX sonuc
loop
        LDA $0400,X
        AND #$0F
        CLC
        ADC sonuc
        STA sonuc
        INX
        CPX #$09
        BNE loop
        
        LDA #$5D
        SBC sonuc
        STA $040A
        RTS
  
sonuc
        BYTE $00

[WildLord]

Upuzun kod çözümü

10 a$="0123456789"
15 input b$
20 for i=1 to 10
25 for j=1 to len(b$)
30 if mid$(a$,i,1)=mid$(b$,j,1) then z=1
35 next
40 if z=0 then print mid$(a$,i,1)
45 z=0
50 next

[Decypher]

Zamanında C64'te Basic ile yeterince vakit geçirdiğim için mesela WildLord'un verdiği örnekte olduğu gibi "upuzun" çözümleri rahatça anlayabiliyorum ama diğer kısa kodlar gözüme çok yabancı görünüyor.

Bu kısa kodların, özellikle de Peek ve Poke kullananların çalışma prensibini de yazsanız, o kısımları da anlasak fena mı olur ki?

[emarti]

@Decypher dediği gibi aslında kısa kod sonrası ayrıca satır satır açıklama yapılarak az bilen bilmeyenin de dikkati çekilebilir konuya.

[wolfiem]

Daha biz soruyu görmeden cevaplar gelmiş, bu tur bitmiş

[wolfiem]

İlk soruya en kısa cevabı veren skate oldu.

Katılan herkese teşekkürler. Sıralama ve gelen cevapları d64 dosyasında topladım. Aşağıdan indirebilirsiniz.

Şu an soru listemi gözden geçiriyorum. Birazdan ikinci soru gelecek.

Benim cevapları göremedim listede

[Skate]

512, yani 0x0200 basic'in input buffer adresi. siz input ile bir değişkene veri aktardığınızda hafızada geçici olarak burada tutuluyor veriler. dolayısıyla inputtan sonraki değişkenin tipine, basic tarafından nasıl yorumlandığına bakmaksızın 512'den itibaren yer alan alana petscii karakter değerleri diziliyor.

bu değerlere göre 0-9 0x30-0x39 yani 10'luk düzende 48-57 arasında yer alıyor. Toplamlarını aldığınızda her bir rakam için 45 toplamının üzerine 480 fazladan petscii index değerleri binmesi gerektiği için de 480+45 = 525'den çıkarmamız gerekiyor kalan değeri bulmak için. Ancak bu durumda bulacağımız değer yine petscii olacak. Rakamsal değerini bulmak için ters yönde bir 48 daha ilerlemek lazım. 525-48 = 477

Delimawi'nin tricki de 477'yi 9'luk loopta parça parça çıkarmak/eklemekten ibaret.

477/9 = 53