sonraki »

[wizofwor]

Uzun süredir aklımda bir programlama yarışması düzenlemek vardı. Bu güne kısmetmiş.
Karşınızda C64 BASIC Kısa Kod Yarışması kodlama yarışması.



Kurallar
1. Yarışmanın amacı sorulan soruya cevap veren en kısa programı yazmak.
2. Her hafta cuma akşamı yeni bir soru soru soracağım.
3. Cevap vermek için bir sonraki soruya kadar süreniz olacak.
4. Programlar C64 BASIC ile yazılacak. (POKE, PEEK vb. komutlar serbest.)
6. Komut kısaltmaları kullanılmayacak. (Okunabilirliği yüksek tutmak için)
5. Kaynak kodlarınız PETCAT uyumlu olacak. Kodları CBM Prg Studio'ya kopyalayarak çalıştıracağım.
6. İlk 4 soru 10 son 3 soru 20'şey puanlık olmak üzere toplamda 7 soru soracağım.
7. En kısa kodu yazan o haftaki puanın sahibi olacak.

Ödül
Elimdeki fazla olan irqHack64 kartuşlardan birini ödül olarak vermeyi düşündüm.
Yalnız elimdeki kartuşların üzerindeki arduino yazılımı güncel değil. Ben güncelleyemiyorum. Kazanan arkadaşın bu yazılımı güncellemesi gerekiyor.


İlk soru: Tek mi çift mi?
Sadece tam sayı girdiler için verilen sayının tek mi çift mi olduğunu bulan bir program yazın.
Program tek sayılar için 'TEK' çift sayılar için 'CIFT' yazmalı.

Örnekler

Kod:

Girdi: 1; Çıktı: TEK
Girdi: 2; Çıktı: CIFT

İkinci soru: Eksik rakamı bul
Tüm basamakları birbirinden farklı olmak üzere, girilen 9 karakterlik bir sayıda hanki rakamın eksik olduğunu bulan bir program yazın.

Not: Girdi olarak sadece 9 haneli ve rakamları birbirinden farklı sayılar test edilecektir.

Örnekler:

Kod:

Girdi: 123456789; Çıktı: 0
Girdi: 124560789; Çıktı: 3
Girdi: 098762345; Çıktı: 1

Üçüncü soru: n basamaklı rastgele sayı

0<n<10 olmak üzere girilen rakam için: n basamaklı, her basamağı birbirinden farklı ve sıfırla başlamayan rastgele bir sayı üretin.
Programınızın n'in koşullara uymadığı kontrol etmesine gerek yok. Üretilen rastgele sayının dağılımı önemli değil. Yani RND() fonksiyonun ürettiği sayılar yeterli.

Dördüncü soru: İkinci ismi bul

Girilen bir ismin içinden varsa ikinci ismi bulan bir program yazın.
Program ikinci isim yoksa boş değer döndürmeli.
Eğer ilk isimle soyad arasından birden fazla isim varsa hepsini döndürmeli.

Örnekler:
fatma sezen aksu : sezen
rabia demet sağıroğlu : demet
fatma yonca evcimik : yonca
haluk levent :

Not: "Pablo Diego José Francisco de Paula Juan Nepomuceno María de los Remedios Cipriano de la Santísima Trinidad Ruiz y Picasso" gibi uzun isimleri denemeyeceğim.

[i_r_on]

Ooo.. çarşı karışır

Performans önemli değil di mi? (İlk soruda söz konusu değil muhtemelen de)

Bence "iyi" kelimesini tariflemelisin. Tabii subjektif olarak değerlendireceksen o zaman bir şey diyemem.

[wizofwor]

Oradaki iyi hatalı olmuş. Sadece doğru çıktıyı veren en kısa koda bakacağım. Performans önemli değil. Zaten çok ağır hesaplama gerektiren şeyler sormayacağım.

[WildLord]

Programcı değilim daha kısası ve mantıklısı nasıl olur bilemiyorum Ama sanırım en ilkel haliyle aşağıdaki şekilde olur.

5 input "sayi :";sayi
7 sayi$=str$(sayi/2)
9 if mid$(sayi$,len(sayi$)-1,1)="." then print "tek":end
11 print"cift"

[AmigaMan]

Sevdim bu fikri ödüle gerek her hafta devam etsin. Odul biterse kazananın adını şampiyon ilan edin yeter.

[i_r_on]

eminim daha kısası vardır ancak katılım sağlayalım. sorsan basic bilirim, unutmuşum

1 print"sayi?":inputa%:ifa%and1thenprint"tek":goto1
2 print"cift":goto1

ps1: Hediyeye talip değilim
ps2: Dönüp durmasın, bir defa işini yapsın denirse şu şekilde

1 print"sayi?":inputa%:ifa%and1thenprint"tek":end
2 print"cift"

ps3: print yerine soru işareti girince daha sonra listelendiğinde tekrar print'e çeviriyormuş meret. bence kısaltma kullanılmasın.

[i_r_on]

Bu da if sevmeyenlere gelsin,

1 a$(1)="tek":a$(0)="cift":print "sayi?":inputa%:printa$(a%and1)

[Simon (Özay Turay)]

@i_r_on: Seninkiler kadar kısa değil ama alternatif bir yol.

1 poke19,65:input"sayi:";s:y=int(s/2):t=y*2:ift=sthenprint"cift":goto1
2 print"tek":goto1

Bu arada ilk print'e ve ?'ne gerek yok

1 poke19,65:input"sayi:";a%:ifa%and1thenprint"tek":goto1
2 print"cift":goto1

ve

1 poke19,65:a$(1)="tek":a$(0)="cift":input"sayi:";a%:printa$(a%and1):goto1

şeklinde kısaltabilirsin.

Not: Hediyeye ben de talip değilim.
Edit: VICE'a kopyala yapıştır yapılabilir hale getirildi.

[june8efe]

hediye benimdir


10 print "x"
run
x

[WildLord]

Benim kodumda şöyle bir hata var rakam hanesi 11 basamağa ulaştığında örn. 11111111111 program sayının tek ya da çift olmasını karıştırıyor yani yuvarlama hatası yapıyor. 10 haneye kadar yuvarlama hatası yok doğru hesaplıyor. Aynı durum Simon'un ilk örneğinde de var.

i_r_on'un kodlarında bir de Simon'un son iki örneği de basamak sayısı 6 hane olduğunda ILLEGAL QUANTITY ERROR veriyor.

[i_r_on]

@wildlord : c64 basic'te tam sayılar 16 bit signed. Yani alabilecekleri değerler -32768 ile +32767 arası..

Senin programa 700000.1 gibi bir değer ver bakalım doğru sonuç veriyor mu

[WildLord]

Benim programımın syntax error vermemesi bile sevindirici Açıklama için sağol bu konu sayesinde yeni bir şeyler öğreneceğim.

[skonac]

En sevdiğim

Kod:

1 INPUTA%:PRINTMID$("CIFTTEK ",(A%AND1)*4+1,4)

[Simon (Özay Turay)]

@skonac: Bu zekice olmuş.

[skonac]

@skonac: Bu zekice olmuş.

Teşekkürler