sonraki »

[eins]

Hala oturamadım başına, bu kadar kısa olmasa da yatmadan bir versiyon paylaşacağım umarım.
Bu arada kızma ama bence hala evreler çok doğru değil. Gerçi sıkıntı sorunun tam net olmamasında, yoruma açık kalıyor haliyle...

[eins]

Bu gece 111 byte yapabildim, belki yarın daha optimize edecek birşeyler bulabilirim. Bu versiyonda 8'den fazla evre çizdiriyorum, zaten çözünürlük düşük, bu şekilde gözüme daha güzel göründü. Kurallara göre karakter olarak . ve * kullanmak zorunda değiliz sanırım. Ama zaten aynı kural senin kod için de geçerli olduğundan ben de aynı şekilde bıraktım.

WARP moda tavsiye ederim, daha animatif oluyor...

EDIT: Laf sokmaca, senin ay'ın 8 karakter genişliğinde değil...

Kod:

0 forp=-5to9:forx=-3to4:fory=-2to2:d=x+y*sgn(x*y)+p
1 poke6^4+x+y*40,42-4*(d<0ord>7ord<p-3ord>p+4):nexty,x,p:run

[eins]

110 Byte ...

Kod:

0 forp=-5to9:forx=-3to4:fory=-2to2:d=x+y*sgn(x*y)
1 poke6^4+x+y*40,42-4*(d+p<0ord+p>7ord<-3ord>4):nexty,x,p:run

[eins]

108 Byte...

Kod:

0 forp=-8to9:forx=-3to4:fory=-2to2:d=x+y*sgn(x*y)
1 poke6^4-x+y*40,42-4*(abs(p-d)>4ord<-3ord>4):nexty,x,p:run

[eins]

107 Byte, ay 7 karakter genişliğine düştü...

Kod:

0 forp=-8to9:forx=-3to4:fory=-2to2:d=x+y*sgn(x*y)
1 poke6^4-x+y*40,42-4*(abs(p-d)>4orabs(d)>3):nexty,x,p:run

[eins]

104 byte ...

Kod:

0 forp=-8to9:forx=-3to4:fory=-2to2:d=x+y*sgn(x*y)
1 poke6^4-x+y*40,42-4*(abs(p-d)>4ord*d>9):nexty,x,p:run

[Skate]

Demek istediğini anladım. Ben moon phase diye eclipse render ediyormuşum.

Henüz gridin köşelerini çizmiyor ve seninki gibi tam evreleri render etmiyor ama kast ettiğin şekilde render eden versiyon. Benim de bu gece bitirmem gereken bir iş var. Yarın kapışırız.

100 byte

Kod:

0 forp=0to15:c=p>7:fori=0to28
1 poke6^4-int(.5+2*cos(i/9))*40+(3.5-p-8*c)*sin(i/9),42-4*c:nexti,p:run

JS versiyonu:
http://jsfiddle.net/6abqd1wd/

[Skate]

Bu arada 7 genişliği ok ise başka bir optimizasyonla birlikte 97 byte'a da düşüyor.

Kod:

0 c=p>7:fori=0to28
1 poke6^4-int(.5+2*cos(i/9))*40+(3-p-8*c)*sin(i/9),42-4*c:next:p=p+1and15:goto0

[eins]

Benim kurallara tam uygun en kısa çözümüm 106 byte...
8 karakter genişliğinde ve örneklere uygun toplam 8 tam faz çizen, 8x5 matris içinde . ve * harici karakter buludurmayan versiyon.

Kod:

0 forp=-4to4:forx=-3.5to4:fory=-2to2:f=abs(x*y)
1 poke6^4-x+y*40,42-4*(abs(p*2-x-f/x)>4orf>3):nexty,x,p:run

NOT: Kurallar hafif esnetilerek oluşturulmuş bir çok versiyon birikti ama ortalık karışmasın şimdilik. Paste etmiyorum onları...

[Skate]

Günlerdir uğraşacak vakit bulamamıştım. Şimdi trigonometrik yöntemle bir deneme yaptım. Şu an için 113 byte'dayım. Farkı evrelerin küresel koordinat sistemine daha yakın çizilmesi. Ama tamamen legal bir formül değil, bu da çözünürlüğe özelleştirilmiş bir formül.

Şimdi eşim film izlemeye çağırıyor. Yarın yarışma sonuçlanmamış olursa son bir kez uğraşacağım üstünde. Ama başka yöntemle uğraşacağımı sanmıyorum. Bu da büyük ihtimalle 106 byte'ın altına inmez. Şimdiden tebrikler.

Kod:

0 forp=0to7:fory=-2to2:forx=-3.6to4:z=x/(4-abs(y))*sgn(~-p)
1 poke6^4+y*40+x,42-4*(z>1orz<cos(p*.8)):nextx,y,p:run

[eins]

Benim 106 byte da zaten ideal bir çözüm değil, aynen dediğin gibi çözünürlüğün düşük olmasından kaynaklanan bozulmaya dayanıyor. Çizdiği aslında elips yada yuvarlak değil, baklava. Ama zaten soruda verilen örnekler de öyle. İdeal ay çizimi için 8x8 matris seçilmesi bence daha uygun olabilirdi.

Ben aşağıdaki patterni oluşturan formülü excelde hesapladım.
Baz formül x+y*sign(x*y).
Bunu int() yapınca 4 ayrı segment seçilebliyor. Bu segmentlerden herhangi birini de evre<segment<evre+4 kontrolü ile seçince, 8 ayrı evre çizilebiliyor.

Bir de köşelerdeki beyaz kısımların hiç bir zaman seçilmemesini garanti altına almak gerekiyor.

Toplam 4 ayrı koşulun üst üste optimize edilmesi ile de 106 byte a kadar inebildi.

[wizofwor]

Aslında yarışmayı bu gün bitirmeyi düşünüyordum ancak iki iki yarışmacı da biraz daha uğraşmak istiyor gibi. İsterseniz biraz daha süre verebilirim.

Ayrıca bu soruya en iyi cevabı delimawi verdiğine göre puan durumu eşit oluyor? Ne yapalım bir soru daha mı sorayım?

[WildLord]

Bence bir soru daha sorun akabinde puanlama şeklinde olmasa da imkan olduğunca soru sormaya devam edin, kendi adıma çok faydalanıyorum.

[Skate]

Ortada hırs mı var kardeşim? Berabere kalmaktan onur duyarım.

[eins]

Açıkçası ben de çok faydalanıyorum, trickler ve optimizasyonlar, sadece bu yarışma veya c64 platformu adına değil, her alanda uygulanabilecek örnekler de içeriyor.

Örneğin, (a and b and c) şeklindeki bir önermenin !(a or b or c) şeklinde yazılabiliyor olduğunu lise yıllarında öğrenmiştik, şimdi bu yarışmada or and e göre daha kısa olduğu için hatırladık, ama örneğin bu bilgi megaOne kartuşu tasarlerken bile kullandığım bir bilgiydi. Logic chipleri seçerken de benzer optimizasyonlar yapıyor, misal, ek bir and kapısı kullanmamak için boşta kalan or kapısı ve not kapısını birleştirebiliyoruz gibi. Bu tarz bilgileri güncel tutması adına bence çok değerli...

Ben işin yarışma tarafında değilim, ancak wildlord'un dediği gibi mümkün olduğunca, örneğin haftada bir, bu tarz soruların soruluyor olmasını isterdim. İsteyenin bir yüzü kara...

@skate'in zaten c64 camiasında nerede olduğunu herkes biliyor. Sorulara verilen cevaplar da bu yarışma özelinde açık olduğu için ister istemez yöntem farklı olsa bile diğer cevaplardan "izler" içerebiliyor. Dolayısı ile kimi zaman aynı soruda, kimi zaman sonraki sorularda @skate'in tricklerinin üzerine bir güzel oturmuşluğum olmuştur. Satır sorununda tırnak kapatmama, on goto ile else çözümü vb... Dediğim gibi işin yarışma tarafında değilim, @skate ile karşılıklı kod kapışıtırıyor olmak bile güzeldi. Birçok şey öğrendim, teşekkür ederim...