sonraki »

[eins]

@skate, aynı anda yazmışız.

Senin kodu alıp gelişine vuruyorum.

Kod:

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

[Skate]

Süper optimizasyonlar ve kafa yormalar. Ben de ilk olarak benzer bir kod yazdım. Yani 1-9'a dizi init ederek başladım, sonrasında da random swap yaptım. Algoritma çok benzerdi ama baktım ki mevcut 3 satırlık kod daha kısa kalıyor, ben de onu kısaltmayı tercih ettim. Henüz üzerine yeterince düşünmedim, yarın düşüneceğim boş vakit bulduğum gibi.

Tek satır olma ve O(n) zamanda çalışma avantajı gibi şeylerle benim kalbimde bu çözüm winner. Ancak karakter sayısı olarak baktığımızda şu anki 79 karakter dediğin versiyon 0'dan sonraki boşlukla 80 karakter olarak sayılıyor. Çok satırlı çözümler daha kısa. Daha da kısalabilirler gibi geliyor bana. Dediğim gibi yarın salim kafayla bakacağım.

[Skate]

An itibariyle en kısası bu.

@skate, aynı anda yazmışız.

Senin kodu alıp gelişine vuruyorum.

Kod:

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

[i_r_on]

@delimawi : Son çözüm (sondan bir önceki) güzel ama kısalmamış. Ya da siz sayarken farklı bir yöntem kullanıyorsunuz.

1. Notepad'de courier font seçilir
2. Kod yapıştırılır.
3. Satır sonları silinir.

Senin shuffle yapan kod 80 karakter çıkıyor. Satır başından sonra gelen boşluk sayılıyor. Tek satıra indirme hevesini kırıyor gerçi bu, Wizofwor tekrar değerlendirsin

[eins]

Ben substition cipher tarzi 1-9 arasi rakamlari tersinir 1-9 arasi baska rakamlara esleyecek formul uretmeye calistim. Bir seed ile tek dongude halledecektim. Ama ya kisa olmuyor ya da dagilim cok zayif kaliyor.

Ek. Ha bi de xor olsa basicde, rakamlar 1-9 degil 0-7 arasi olsa neler yapilir neler... Bu seri bitince bunun asm komposunu da yapalim...

[eins]

I_r_on o kodu en kisa olarak koymadim. Farkli ve tek satirlik zarif bir cozum olarak simdilik paste ettim...

[Skate]

70 karakterlik içime sinen çözüm

Kod:

0 inputa:fori=1toa
1 d=rnd(1)*9:one(d)goto1:poke1023+i,d+49:e(d)=1:next

69 karakterlik içime sinmeyen çözüm

Kod:

0 inputa:fori=1toa
1 d=rnd(1)*9:one(d)goto1:poke4^5+i,d+49:e(d)=1:next

Yazmaya 2. karakterden başlayınca özellikle ilk karakter doluysa kötü görünüyor. Ama her ikisi de çıktıyı ekrana yazıyor.

Demin on...goto kullanmamın amacı 3 satırı 2 satıra indirmekti. Yanlışlıkla 3 satırlık çözümü paylaşmışım yine. Burada 2 satırlık versiyonu var. if...else simülasyonu böyle yapılıyor tek satırda.

Bu bence daha da kısalabilir. Minimuma ulaştığını hissetmiyorum.

[Skate]

O(n)lik çözümden infinite çalışan çözüme yolculuk.

67 karakter

Kod:

0 inputa
1 d=rnd(1)*9:one(d)goto1:e(d)=1:poke1023+a,d+49:a=a-1:goto1

[AmigaMan]

Ellerine sağlık süper çözüm olmuş

[Skate]

Sonunda 4^5'i de kullanabildim, oh be

66 karakter

Kod:

0 inputa
1 d=rnd(1)*9:one(d)goto1:e(d)=1:a=a-1:poke4^5+a,d+49:goto1

[eins]

@skate, dün gece fark etmemişim. "on goto" süper bir "if else" eşleniği olmuş. Çok sevdim bunu...

Gel gelelim çözümler bana biraz sıkıntılı geldi. Bence 1024 adresini kullanmak doğru değil. RUN edildiğinde cursor aşağılarda ise scroll edecek görünmeyeek sonuç. Sonsuz döngüye giren kod için ise hiç yorum yapmıyorum.

[blackturk]

  Bir kaç sohbetimizde , skate'in  bir sözü vardı."Aklın yolu birdir." .on x goto 1  şeklinde bir tasarım yapmıştım.demek ki atladığımız yerlerde varmış.Next question plase ?

[Skate]

@delimawi: Cursor en alttayken de çalıştırsan problem çıkmaz. Input'u aldıktan sonra scroll edip, ondan sonra ekran adreslerine map ediyor. O aşamadan sonra da ekran tekrar kaymıyor.

Loop konusuna gelince ben size optimizasyon söz konusu olduğunda bu tür yöntemleri legal olarak hep kullanırım ki programın çalıştıktan sonra çıkmasının gerekmesi bence "aksi belirtilmediği sürece" bir gereklilik değildir. Run/stop bunun için var. "Print komutunu kullanma zorunluluğu" ya da "Basic'e dönme zorunluluğu" gibi bir şey olmadığı sürece ben bir aksilik göremiyorum.

Ben ilk başta bu mevzuya değil, üst satırda junk data varsa o satırın silinmiyor olmasına takılmıştım. Ama sonra print içeren çözümlerde de aynı sorun olduğunu fark ettim. Ekranda dolu olan bir satıra denk getirdiğin sürece print de o satırı temizlemiyor sonuç olarak.

Son olarak loop memory'i geriye doğru doldurmaya devam ediyor ve bir noktadan sonra crash ediyor gibi bir durum da söz konusu değil. 9 digit sonrası yeni unique bir digit yaratılamadığı için program "on goto"da kilitleniyor, memory junk data ile dolmuyor.

[eins]

Evet, sonsuz döngülü olan en altta çalıştırılınca problem çıkarmaz, zira programdan çıkamadığı için scroll edemeyecek. Ben o çözüm için değil sonsuz döngülü olmayan çözüm için yazmıştım.

Sonsuz döngülü olmayan çözümüne sadece scroll ederse ekrandan kaçacak konusunda itirazım var zaten. Poke kullanmana değil.

Bu arada ilgili çözümüne +1 byte ekleyerek scroll edince ekrandan kaçamayacak hale getiriyorum. 71 byte.

Kod:

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

[Skate]

@delimawi: bu arada infinite loop bana 3 karakter kazandırıyor. goto1 yerine ifathen1 yazacak olursak olması gerektiği gibi çıkıyor da. senin 71 karakter versiyon for'suz da çalışabiliyor aynı şekilde;

Kod:

0 inputa
1 d=rnd(1)*9:one(d)goto1:a=a-1:printchr$(d+49);:e(d)=1:ifathen1

fark nerede dersen benim versiyon goto1 ile daha da kısalabiliyor. ama print kullanan versiyon ifathen1 yerine goto1 kullanamıyor. poke kullanımı 2, infinite loop 3 toplamda 5 byte avantajı var. ama ben 66 byte'ın da final olduğunu düşünmüyorum. işler yoğun, bir rahatlasın kafa yorucam. çok değil ama 1-2 byte daha uçar diye düşünüyorum.