Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz
  Gelişmiş Arama
insanın içinde varsa, commodore.gen.tr açığa çıkarır bunu.. bir nevi retro olaylarının dolunayıyız.(Arda)
commodore.gen.trCommodoreCommodore YazılımC64 BASIC Kısa Kod Yarışması - irqHack64 Ödüllü
« önceki sonraki »
Sayfa: 1 [2] 3 4 ... 30   Aşağı git
Yazdır
Gönderen Konu: C64 BASIC Kısa Kod Yarışması - irqHack64 Ödüllü  (Okunma Sayısı 237629 defa)
0 Üye ve 2 Ziyaretçi konuyu incelemekte.
Simon (Özay Turay)
Yönetici
*****
Mesaj Sayısı: 7.756


Commodore Forever


Üyelik Bilgileri WWW
« Yanıtla #15 : Nisan 22, 2017, 12:10:57 ÖS »
Kodu küçük harflerle yazarsan VICE'a yapıştırılabiliyor.
Logged
https://retrodergi.com - https://e-turay.com - https://karizmawow.e-turay.com

Retro: Commodore 64, Amiga 500, Amiga 1200
Retromsu: Wii, XBox360, XBox, PS3 Slim, PS2 FAT, PS1, PS Vita, Nintendo 3DS, Nintendo 2DS
wizofwor
Genel Yönetici
*****
Mesaj Sayısı: 4.787


Gosub ile gidilen yerden goto ile dönen adam


Üyelik Bilgileri WWW
« Yanıtla #16 : Nisan 22, 2017, 23:04:24 ÖS »
İlk soruyu ısınma sorusu olarak düşünmüştüm. Çok basit bir soru olmasına rağmen çok güzel cevaplar geldi.

Özellikle sconac'ın MID$(..,AND(),..) combinasyonu kırk yıl düşünsem aklıma gelmeyecek cinstendi. Simon senin çözümde de 16bit limitine takılmıyor rakam ne kadar büyük olursa olsun doğru çalışmaya devam ediyor.

Kodların okunabilirliği açısından i_ron'un önerisine uyarak kısaltma kullanmayalım diyorum. Kuralları da bu şekilde değiştireceğim.
Logged
Tanışma Sayfam |  GitHub: C64 assembly örnekleri , C64 assembler üzerine notlar
juda
Uzman
*****
Mesaj Sayısı: 487



Üyelik Bilgileri
« Yanıtla #17 : Nisan 22, 2017, 23:38:51 ÖS »
10 print chr($)5;poke53280,0;poke53281,0;print"press ctrl to continue";wait653,4

Denemesi bedava
Logged
Cuore Sportivo
AmigaOne XE G3 - Amiga 4000/060 - Amiga 3000 - Amiga 1200 - Amiga500+ - Amiga 500 Vampire
Next Color Cube - SGI O2 - Sun Ultra Enterprise 1
SX64 - C128 - C64 - C64C - C64G - C16 - C Plus4 - 1540 - 1541 - 1541C -1541-II - 1551 - 1571 - 1581 - 1530 - 1531
Atari 1040 STE Amstrad CPC4
Alpyre
Uzman
*****
Mesaj Sayısı: 2.237



Üyelik Bilgileri WWW
« Yanıtla #18 : Nisan 22, 2017, 23:53:43 ÖS »
skonac alır.
« Son Düzenleme: Nisan 23, 2017, 07:54:26 ÖÖ Gönderen: Alpyre » Logged
Alper
ibeser (Ayak Takımı)
Deneyimli
*****
Mesaj Sayısı: 2.405


Sega<Nintendo<Amiga


Üyelik Bilgileri WWW
« Yanıtla #19 : Nisan 22, 2017, 23:56:23 ÖS »
Alıntı sahibi: skonac üzerinde Nisan 22, 2017, 11:49:54 ÖÖ
En sevdiğim

Kod:
1 INPUTA%:PRINTMID$("CIFTTEK ",(A%AND1)*4+1,4)
Tebrikler abim. Bu performansını Ankara buluşmalarında da görmek istiyoruz
Logged
https://www.youtube.com/user/uykumvar?sub_confirmation=1
Ayak Takımı Organizasyon Ekibi
www.ayaktakimi.org
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #20 : Nisan 23, 2017, 00:41:51 ÖÖ »
Muhtemelen küfür yiyeceğim ama görünce yazmadan edemedim. 1 karakter daha kısası mümkün... Kahkaha

1 inputa%:printmid$("ciftek ",(a%and1)*3+1,4)

EDIT: cifttek sonrasındaki boşluk da gerekesiz bu arada. Oldu mu sana -2 byte ...

Kod:
1 inputa%:printmid$("ciftek",(a%and1)*3+1,4)
« Son Düzenleme: Nisan 23, 2017, 01:18:02 ÖÖ Gönderen: delimawi » Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
wolfiem
Deneyimli
*****
Mesaj Sayısı: 1.276


May the source be with you!


Üyelik Bilgileri
« Yanıtla #21 : Nisan 23, 2017, 00:45:33 ÖÖ »
Alıntı sahibi: delimawi üzerinde Nisan 23, 2017, 00:41:51 ÖÖ
Muhtemelen küfür yiyeceğim ama görünce yazmadan edemedim. 1 karakter daha kısası mümkün... Kahkaha

1 inputa%:printmid$("ciftek ", (a%and1)*3+1,4)
Hahahaa, süper
Logged
Commodore & Amiga & Amstrad & Retro Macintosh Fan
k2.bbs.tr - Çok yakında!
wolfiem
Deneyimli
*****
Mesaj Sayısı: 1.276


May the source be with you!


Üyelik Bilgileri
« Yanıtla #22 : Nisan 23, 2017, 00:57:06 ÖÖ »
Alıntı sahibi: wizofwor üzerinde Nisan 22, 2017, 23:04:24 ÖS
Simon senin çözümde de 16bit limitine takılmıyor rakam ne kadar büyük olursa olsun doğru çalışmaya devam ediyor.

Simon'ın çözümü 16 bit üzerindeki rakamlarda hep CIFT olarak sonuç dönüyor Masum

Skonac'ın kısa yaklaşımı üstüne delimawi'nin 1 karakterlik tunningini katarak geliştirdiğim, 255 karaktere kadar girilen tüm sayılara doğru cevap veren sürüm şöyle Kahkaha

Kod:
1 inputa$:printmid$("ciftek ",(val(mid$(a$,len(a$),1))and1)*3+1,4)
Logged
Commodore & Amiga & Amstrad & Retro Macintosh Fan
k2.bbs.tr - Çok yakında!
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #23 : Nisan 23, 2017, 01:08:08 ÖÖ »
Hiç acımam yaklaşım buysa 6 karakter keserim... Kahkaha
Kod:
1 inputa$:printmid$("ciftek ",(val(right$(a$,1))and1)*3+1,4)
Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
i_r_on
Uzman
*****
Mesaj Sayısı: 2.873



Üyelik Bilgileri WWW
« Yanıtla #24 : Nisan 23, 2017, 01:16:25 ÖÖ »
Madem girdiyi alırken string yazmıyoruz, daha önce yazdığımın biraz değişiği epey kısa

Kod:
1 a$(1)="tek":a$(0)="cift":inputa%:printa$(a%and1)
Logged
Every imagination is one's self reflection but not every self reflection is imagination. <I.R.on - 2001>

twitter | blog
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #25 : Nisan 23, 2017, 01:20:32 ÖÖ »
Benim tune ettiğim daha kısa sanki...

Kod:
1 a$(1)="tek":a$(0)="cift":inputa%:printa$(a%and1)
1 inputa%:printmid$("ciftek",(a%and1)*3+1,4)
Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
wolfiem
Deneyimli
*****
Mesaj Sayısı: 1.276


May the source be with you!


Üyelik Bilgileri
« Yanıtla #26 : Nisan 23, 2017, 01:40:25 ÖÖ »
Alıntı sahibi: delimawi üzerinde Nisan 23, 2017, 01:08:08 ÖÖ
Hiç acımam yaklaşım buysa 6 karakter keserim... Kahkaha
Kod:
1 inputa$:printmid$("ciftek ",(val(right$(a$,1))and1)*3+1,4)

Tabi ya! right$ Kahkaha

Bu arada string sınırını düşünerek 255 karaktere kadar demiştim ama az önce test ettim 20000 karakter ile bile çalışıyormuş
Vice'a 20000 karakterlik sayıyı copy-paste etmesi çok uzun sürüyor Kahkaha
Logged
Commodore & Amiga & Amstrad & Retro Macintosh Fan
k2.bbs.tr - Çok yakında!
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #27 : Nisan 23, 2017, 01:44:08 ÖÖ »
Alıntı sahibi: delimawi üzerinde Nisan 23, 2017, 00:41:51 ÖÖ
Muhtemelen küfür yiyeceğim ama görünce yazmadan edemedim. 1 karakter daha kısası mümkün... Kahkaha

1 inputa%:printmid$("ciftek ",(a%and1)*3+1,4)

EDIT: cifttek sonrasındaki boşluk da gerekesiz bu arada. Oldu mu sana -2 byte ...

Kod:
1 inputa%:printmid$("ciftek",(a%and1)*3+1,4)

Yalnız bu kod $0000-$7FFF arası sayılar için çalışır 32767'den büyük girdi için ILLEGAL QUANTITY ERROR alır. Kod yattı
Logged
https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis
READY.
SYS(64767): EMARTI
Skate
Uzman
*****
Mesaj Sayısı: 1.479


A Sinner Scener


Üyelik Bilgileri WWW
« Yanıtla #28 : Nisan 23, 2017, 01:56:34 ÖÖ »
ben o koda kod demem, kod tek satıra sığmadıkça.

Kod:
0 inputa:printmid$("ciftek",4^(aand1),4)

* out.png (1.53 KB, 384x272 - Görüntüleme: 1630 kez.)
Logged
eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #29 : Nisan 23, 2017, 01:58:22 ÖÖ »
@emarti, dediğin sorunun cözümünü de wolfiem yazdı. Ama skate gelmiş bence dağılalım. Bu işi 3 byte da bitirir... İyi geceler...
Logged
Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
Sayfa: 1 [2] 3 4 ... 30   Yukarı git
Yazdır
« önceki sonraki »
Gitmek istediğiniz yer: