Benim ilk bilgisayarım ZX Spectrum 128k +2 idi. Basic yorumlayıcısı çok iyi bir bilgisayardı. Özellikle basic editörü muhteşemdi. Basic performansı çok kötüymüş ama bunu o zamanlar bilmiyorduk tabi.
Yakın zamanlarda Amstrad bilgisayarlara merak saldım. Ara sıra basic'de küçük çapta programlar yazıyorum. Topiği görünce ilk sayfadaki soruları ben de Amstrad'da yazayım dedim, aşağıdaki satırlar ortaya çıktı. Fark ettim ki, Amstrad'daki locomotive basic hem c64'tekinden, hem de zx spectrum'dakinden açık ara daha iyi..
10 INPUT S:PRINT MID$("CIFTEK ",(1 AND S)*3+1,4)
20 INPUT S$:FOR A=1 TO LEN(S$):B=B+VAL(MID$(S$,A,1)):NEXT:PRINT 45-B
30 INPUT S:DIM T(9):FOR A=1 TO S:B=INT(RND*10):WHILE B=T(B):B=INT(RND*10):WEND:T(B)=B:PRINT B;:NEXT
40 INPUT S$:A=1:B=LEN(S$):WHILE MID$(S$,A,1)<>" ":A=A+1:WEND:WHILE MID$(S$,B,1)<>" ":B=B-1:WEND:IF A<>B THEN PRINT MID$(S$,A+1,B-A-1)
(Not: İlk soruyu klasik if .. then .. else ile yazmıştım ama @skonac'ın kodunu görünce değiştirdim
)
Topiğin tamamını okumaya henüz vakit bulamadım ama okuyacağım.
Bu tür yarışmaların yenilerini de bekleriz