Pemenang: Jawaban CJam Aditsu ! 25 byte kekalahan! Bagus!

Anda dapat terus mengirimkan jawaban Anda, namun Anda tidak bisa lagi menang. Pos asli disimpan untuk anak cucu:

Gim "Bzzt" adalah gim di mana Anda harus menghitung angka (dalam hal ini 500). Namun, jika angka tersebut memiliki angka 3 di dalamnya, atau dapat dibagi dengan angka 3, Anda tidak mengatakan angka tersebut. Sebaliknya, Anda mengatakan "Bzzt".

Aturan:

• Anda tidak dapat membuat kode dengan angka-angka.
• Jumlahnya hanya harus memenuhi setidaknya 1 dari persyaratan berikut
  • Dibagi dengan 3
  • Angka berisi 3
• Beberapa jenis pemisah adalah wajib (12bzzt14 tidak masuk hitungan)
• Skor diukur dalam byte.
• Anda harus menghitung tepat hingga 500, mulai dari 1 atau 0 (Anda memilih).
• Angka-angka harus berupa keluaran, tetapi tidak masalah bagaimana (misalnya, stdout, menulis ke file teks, dll.).
• 0 dapat dibagi 3 atau tidak habis dibagi. Kamu bisa memilih.
• Anda dapat menampilkan angka satu per satu (ex, output 1, lalu 2, lalu bzzt, lalu 4, dll) atau sekaligus (misalnya, output 1 2 bzzt 4 5).
• Anda harus mengganti huruf 3 dengan kata "bzzt". Ini tidak peka huruf besar-kecil (bZzt, Bzzt, bzzt semuanya oke).

• Ini adalah tantangan kode-golf , sehingga kode terpendek menang.
• Kontes ini berakhir 30 Juni 2014 (7 hari sejak posting).

CJam - 25

501{3sI3%<Is-I"bzzt"?N}fI

Terima kasih Howard :)

Cobalah di http://cjam.aditsu.net/

Penjelasan:

501{…}fIpada dasarnya for(int I=0; I<501; ++I) {…}
3smengkonversi 3 ke string, yaitu "3"
I3%adalah I% 3
<mendapat substring kiri - "3".substring(0, I % 3)- yang "" untuk I% 3 == 0 dan "3" jika
Isdikonversi Ike string
-dengan 2 string membuat perbedaan set, menghasilkan kosong string iff I% 3 == 0 (string pertama kosong) atau Imemiliki 3 digit di dalamnya
…I"bzzt"?adalah seperti … ? I : "bzzt"; string sebelumnya diperlakukan sebagai nilai boolean, di mana "" salah dan string lainnya benar
Nmenambahkan baris baru

Ruby, 43

501.times{|a|puts"#{a}"[?3]||a%3<1?:Bzzt:a}

Cukup mudah.

Sunting: Disimpan satu byte, terima kasih Howard!

seq dan GNU sed - 42 33 31 30

Berfungsi langsung di dasbor, beberapa shell lain mungkin perlu menonaktifkan ekspansi sejarah, misalnya dengan bash set +H:

seq 500|sed 0~3!{/3/!b}\;cbzzt

kode mesin x86 pada DOS (file .com) - 71 byte

00000000  31 c9 68 20 24 89 e5 89  c8 bb 03 00 31 d2 f7 f3  |1.h $.......1...|
00000010  85 d2 74 1a 89 c8 b3 0a  31 d2 f7 f3 80 fa 03 74  |..t.....1......t|
00000020  0d 80 c2 30 86 d6 52 44  85 c0 75 ea eb 08 89 ec  |...0..RD..u.....|
00000030  68 7a 74 68 62 7a 89 e2  b4 09 cd 21 89 ec 41 81  |hzthbz.....!..A.|
00000040  f9 f4 01 7e c2 59 c3                              |...~.Y.|

Mencetak output yang diperlukan ke stdout dengan spasi sebagai pembatas; dapat dijalankan tanpa masalah di DosBox.

Majelis yang dikomentari:

    org 100h

start:
    ; 0 - 500 counter
    xor cx,cx
    ; we'll use the stack as scratch space to build the strings to print
    ; first of all, push ' $' on the stack (in reverse order); this will be
    ; the end of each string we'll print
    push 2420h
    ; save the stack pointer, to get back to this position after each print
    mov bp,sp
mainloop:
    ; first try to divide by three
    mov ax,cx
    mov bx,3
    xor dx,dx
    div bx
    test dx,dx
    ; no remainder => bzzt
    jz bzzt
    ; otherwise, go into the decimal-print loop
    mov ax,cx
divloop:
    ; bh is already at zero due to the mov bx,3 above
    mov bl,10
    xor dx,dx
    ; divide by 10
    div bx
    ; remainder is 3 => bzzt
    cmp dl,3
    je bzzt
    ; convert number to digit
    add dl,'0'
    ; trick: we move the digit to the upper byte of dx: this allows us to
    ; push the whole dx (you cannot do push dl) but to easily kill the
    ; undesidered byte by touching the stack pointer (it will be overwritten
    ; by the next stack operation/ignored by the print)
    xchg dl,dh
    push dx
    inc sp
    ; check is there anything left to print, rinse & repeat
    test ax,ax
    jnz divloop
    ; skip straight to print
    jmp print
bzzt:
    ; since we may be here from inside divloop, reset the stack pointer to
    ; where we left ' $'
    mov sp,bp
    ; push 'bzzt'
    push 747ah
    push 7a62h
print:
    ; print what is on the stack
    mov dx,sp
    mov ah,9h
    int 21h
    ; move us back to ' $'
    mov sp,bp

    ; increment cx and repeat while we are <=500
    inc cx
    cmp cx,500
    jle mainloop
end:
    ; fix back the stack pointer to the original value (=kill the first push)
    pop cx
    ; quit
    ret

Perl - 35 40 42

print$_*!/3/%3?$_:bzzt,$/for 1..500

PHP, tanpa pemisah - 62, 61,59,58,52,49 47

Tidak dikatakan harus ada spasi / baris baru / pemisah di antara mereka, tanpa:

while(++$i<501)echo$i%3*!strpbrk($i,3)?$i:bzzt;

Dengan pemisah, 68,67,65,64,58 / 55,53 / 52 51/50

while(++$i<501)echo$i%3*!strpbrk($i,3)?$i:bzzt,' '; // 51
while(++$i<501)echo$i%3*!strpbrk($i,3)?$i:bzzt,~õ; // 50

• Baru saja menemukan 'cheat' kecil, tidak perlu spasi setelahnya echo, menyelamatkan saya sedikit.
• The ~õmenciptakan baris baru
• 'Cheat' kecil lainnya, bzzt tidak perlu penawaran (mengujinya). Bukan cara untuk pergi, tetapi berhasil.

Javascript - 54,51 50

Prinsip yang sama, tetapi fungsi javascript:

for(i=0;i++<500;)alert(i%3<1|/3/.test(i)?'bzzt':i)

Javascript 50 49

-1 byte berkat core1024

for(i=0;i++<500;)alert(i%3*!/3/.test(i)?i:'bzzt')

GolfScript, 30 29 karakter

501,{:^`3`^3%<?)'bzzt'^if n}/

Implementasi yang tidak begitu mudah dalam GolfScript, dapat diuji di sini .

Perl, 36

print$_%3&&!/3/?$_:Bzzt,$/for 1..500

Sunting: Saya bukan seorang biksu Perl, jadi core1024 tampaknya telah berhasil memainkan byte lain dari ini dalam jawabannya .

C # (71)

Dapat langsung dieksekusi di LinqPad.

for(var i=0;++i<501;)(i%3<1|(i+"").Contains("3")?"buzz":i+"").Dump();

Python (52)

Terima kasih grc!

for i in range(501):print[i,'Bzzt'][i%3<1or'3'in`i`]

Versi lama:

print['Bzzt'if'3'in`i`or i%3<1 else`i`for i in range(501)]

Haskell: 88 82 80 79

main=mapM_ f[1..500]
f n|n`mod`3<1||'3'`elem`show n=putStrLn"bzzt"
f n=print n

JavaScript 66 63 60

for(a=i=[];i<500;)a[i++]=i%3&&!/3/.test(i)?i:'bzzt';alert(a)

Terima kasih kepada edc65 untuk saran penggunaan array. Output sekarang akan dipisahkan oleh koma.

versi lama

Versi 1a - 66

Cetak dari 1 hingga 500 dalam kotak peringatan sesuai aturan. Outputnya dipisahkan oleh ruang.

a="";for(i=1;i<501;i++)a+=i%3&&!/3/.test(i)?i+" ":"bzzt ";alert(a)

Versi 1b - 65

Jika kami menganggap 0 tidak dapat dibagi dengan 3, kami dapat mempersingkat solusi menjadi 65 karakter:

a=0;for(i=1;i<501;i++)a+=i%3&&!/3/.test(i)?" "+i:" bzzt";alert(a)

Versi 2 - 63

for(a=i="";i<501;)a+=++i%3&&!/3/.test(i)?i+" ":"bzzt ";alert(a)

Terima kasih kepada grc atas sarannya untuk mengurangi panjangnya.

PowerShell, 42

1..500|%{($_,'bzzt')[$_-match3-or!($_%3)]}

Sebagian besar karya Ventero, dengan sedikit bantuan tentang sintaks oleh saya ;-)

R, 49 karakter

a=1:500;b='bzzt';a[!a%%3]=b;a[grep(3,a)]=b;cat(a)

Dijelaskan:

a=1:500 #Creates a vector with all integers from 1 to 500
b='bzzt'
a[!a%%3]=b #Replace all multiples of 3 by 'bzzt', thus coercing all other integers to character strings
a[grep(3,a)]=b #Replaces the character strings containing 3 by 'bzzt'
cat(a) #Print to stdout

Pemakaian:

> a=1:500;b='bzzt';a[!a%%3]=b;a[grep(3,a)]=b;cat(a)
1 2 bzzt 4 5 bzzt 7 8 bzzt 10 11 bzzt bzzt 14 bzzt 16 17 bzzt 19 20 bzzt 22 bzzt bzzt 25 26 bzzt 28 29 bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt 40 41 bzzt bzzt 44 bzzt 46 47 bzzt 49 50 bzzt 52 bzzt bzzt 55 56 bzzt 58 59 bzzt 61 62 bzzt 64 65 bzzt 67 68 bzzt 70 71 bzzt bzzt 74 bzzt 76 77 bzzt 79 80 bzzt 82 bzzt bzzt 85 86 bzzt 88 89 bzzt 91 92 bzzt 94 95 bzzt 97 98 bzzt 100 101 bzzt bzzt 104 bzzt 106 107 bzzt 109 110 bzzt 112 bzzt bzzt 115 116 bzzt 118 119 bzzt 121 122 bzzt 124 125 bzzt 127 128 bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt 140 bzzt 142 bzzt bzzt 145 146 bzzt 148 149 bzzt 151 152 bzzt 154 155 bzzt 157 158 bzzt 160 161 bzzt bzzt 164 bzzt 166 167 bzzt 169 170 bzzt 172 bzzt bzzt 175 176 bzzt 178 179 bzzt 181 182 bzzt 184 185 bzzt 187 188 bzzt 190 191 bzzt bzzt 194 bzzt 196 197 bzzt 199 200 bzzt 202 bzzt bzzt 205 206 bzzt 208 209 bzzt 211 212 bzzt 214 215 bzzt 217 218 bzzt 220 221 bzzt bzzt 224 bzzt 226 227 bzzt 229 bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt 241 242 bzzt 244 245 bzzt 247 248 bzzt 250 251 bzzt bzzt 254 bzzt 256 257 bzzt 259 260 bzzt 262 bzzt bzzt 265 266 bzzt 268 269 bzzt 271 272 bzzt 274 275 bzzt 277 278 bzzt 280 281 bzzt bzzt 284 bzzt 286 287 bzzt 289 290 bzzt 292 bzzt bzzt 295 296 bzzt 298 299 bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt 400 401 bzzt bzzt 404 bzzt 406 407 bzzt 409 410 bzzt 412 bzzt bzzt 415 416 bzzt 418 419 bzzt 421 422 bzzt 424 425 bzzt 427 428 bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt bzzt 440 bzzt 442 bzzt bzzt 445 446 bzzt 448 449 bzzt 451 452 bzzt 454 455 bzzt 457 458 bzzt 460 461 bzzt bzzt 464 bzzt 466 467 bzzt 469 470 bzzt 472 bzzt bzzt 475 476 bzzt 478 479 bzzt 481 482 bzzt 484 485 bzzt 487 488 bzzt 490 491 bzzt bzzt 494 bzzt 496 497 bzzt 499 500

Cobra - 70

class P
    def main
        for i in 501,print if('3'in'[i]'or i%3<1,'Bzzt',i)

Gelombang - 222

Karena saya benar-benar menyukai bahasa ini ... karena suatu alasan ...

SETLOCAL ENABLEDELAYEDEXPANSION
for /l %%n in (1,1,500) do (
    set a=%%n&set /ai=!a!%%3
    if "!a:~0,1!"=="3" set a=Bzzt
    if "!a:~1,2!"=="3" set a=Bzzt
    if "!a:~2,3!"=="3" set a=Bzzt
    if !i!==0 set a=Bzzt
    echo !a!>>x)

TI-BASIC - 31 (32) (34) (35) (36) (43)

:While X<500
:X+1→X
:If not(fPart(X/3
:"bzzt
:Disp Ans
:End

Total: 25 + 6 lines = 31

Perhatikan bahwa sebagian besar perintah pada TI-BASIC direpresentasikan sebagai entitas byte tunggal.

Kode membutuhkan X untuk diinisialisasi ke 0 sebelumnya (jika tidak, ini merupakan tambahan 3 byte).

Saya telah melakukan beberapa upaya untuk mencukur beberapa byte, jadi saya tidak merinci semua yang telah saya lakukan di sini, agar tidak mengacaukan postingan. Mereka sebagian besar diarahkan untuk memperpendek loop, yang telah saya lakukan dalam versi ini oleh loop Sementara dan dengan memperpendek kondisi If dengan bantuan Ansvariabel.

C, 93

Persetan ...

main(i){char s[9]="bzzt";while(i<498+sprintf(s+5,"%d",i))puts(s+5*(i++%3&&!strchr(s+5,51)));}

Julia 64 byte

map(x->x%3==0||contains(string(x),"3")?"Bzzt":string(x),[1:500])

cmd.exe - 91

for /l %x in (1,1,500)do @set/a %x%3|find "0">nul&&echo bzzt||echo %x|find/v"3"||echo bzzt

... karena mengapa menggunakan file batch ketika ada satu-liner yang sangat mudah ... :-)

asyik - 51

500.times{println"$it".find('3')||it%3<1?'bzzt':it}

sunting: menggunakan timesversi pencetakan sekarang sependek "menampilkan". terima kasih @ will-p

C, 80

Menggunakan spasi sebagai pemisah alih-alih pemisah baris.

n;main(){for(;n++<500;)printf(n%10^3&&n/10%10^3&&n/100^3&&n%3?"%d ":"bzzt ",n);}

Mathematica, 54 Karakter

Ini terasa terlalu mudah. Solusi yang lebih pendek harus dimungkinkan.

If[DigitCount[#][[3]] > 0 || #~Mod~3 < 1, Bzzt, #] & /@ Range@500

T-SQL 2008 - 80

Tidak akan menang atau apa pun selain kesenangan: Tweaked berkat @domager:

declare @ int=0t:if(@)like'%3%'or @%3=0print'bzzt'print @;set @+=1if @<501goto t

Fakta yang sedikit diketahui, @ adalah nama yang valid untuk suatu variabel. Rasanya aneh karena kode berbasis set adalah varian SQL yang lebih banyak, tetapi lebih pendek lebih pendek! Versi ini berfungsi pada basis data apa pun. Sunting: Saya dapat menghapus dua semifinal karena tidak diperlukan. Saya cukup yakin ini seoptimal mungkin.

Sunting2: Tidak pernah mengatakan tidak pernah. Di sini sekarang bahkan lebih kotor menggunakan goto, tetapi memungkinkan kita untuk menghindari blokir. Kita dapat Mengganti sementara, mulai, akhiri dengan yang lebih pendek jika, t:, menghemat 6 karakter. Kami juga mengatur ulang pernyataan dengan menulis ulang loop sebagai do-while pseudo, setara secara semantik. Sunting3: Ya, entah bagaimana jika sekarang lebih pendek. Asli:

select top 501iif(number like'%3%'or number%3=0,'bzzt',str(number))from spt_values where'p'=type

Harus dijalankan di master database. Saya suka T-SQL meskipun berisik dan jelek. Mungkin ada cara untuk membuat ini lebih sederhana, tetapi sayangnya, iifbuilt-in membutuhkan kedua belah pihak menyetujui jenis. Aturan prioritas server Sql memberikan prioritas lebih tinggi daripada string. Angka juga sangat panjang, tetapi aliasing lebih banyak karakter daripada nilainya. Mungkin ada cara yang lebih baik untuk mengubah angka menjadi string. Sunting: str juga berfungsi. 2 karakter lebih sedikit dari ltrim

VBA: 54

for x=0to 500:?iif(x/3=x\3=instr(1,x,3),x,"Bzzt"):next

Buka program Office favorit Anda, tekan alt + F11 untuk membuka VBA IDE dan tempel kode ke panel langsung dan tekan enter.

Dalam VBA,: apakah garis pemisah,? adalah singkatan untuk cetak, iif berarti inline if (think x? "Y": "N"), x / 3 melakukan pembagian titik mengambang dan x \ 3 melakukan pembagian bilangan bulat, instr mengembalikan posisi char dalam sebuah string, atau 0 jika tidak, true = -1 dan false = 0.

Kode pada dasarnya menambah x dan menghasilkan x jika x / 3 = x \ 3 = instr (1, x, 3) benar dan "Bzzt" sebaliknya. x / 3 = x \ 3 membandingkan (float) (x / 3) hingga (int) (x / 3) dan mengembalikan boolean (0 salah dan -1 benar). instr (1, x, 3) mengembalikan 0 jika "3" tidak ada dalam angka, dan bilangan bulat positif sebaliknya. Satu-satunya saat ekspresi mengembalikan true adalah ketika (x / 3 = x \ 3) salah (0) dan instr (1, x, 3) adalah 0, atau dengan kata lain, ketika x tidak dapat dibagi oleh 3 dan tidak mengandung digit "3", yang persis seperti yang kita cari.

k4 (37) (35)

{$(x;`bzzt)(|/51=$x)|~"."in$x%3}'!501

k4tidak memiliki perintah modulo bawaan, dan menggunakannya qakan membutuhkan karakter tambahan; versi ini (ab) menggunakan format keluaran bawaan untuk memeriksa apakah string hasil pembagian xoleh 3 memiliki titik desimal di dalamnya.

SUNTING:

{$(x;`bzzt)(|/51=$x)|x=3*_x%3}'!501

Pintar seperti mencocokkan titik desimal mungkin, saya bisa mencukur dua byte dengan memeriksa yang 3*floor x%3masih x.

Pesta, 53 52 48 46

seq 500|factor|sed '/3.*:\| 3 */cBzzt
s/:.*//'

Membutuhkan GNU sed (menggunakan cekstensi).

Java, 142 131 terima kasih atas saran WozzeC

public class a{public static void main(String[]a){for(int i=1;i<501;i++)System.out.println(i%3>0&(""+i).indexOf(51)<0?i:"bzzt");}}

R (40) (36)

Ini pada dasarnya jawaban plannapus sedikit disingkat, tapi saya belum bisa berkomentar

Perbarui: -4 karakter (lihat komentar plannapus)

a=1:500;a[grepl(3,a)|!a%%3]='bzzt';a

Keluaran:

  [1] "1"    "2"    "bzzt" "4"    "5"    "bzzt" "7"    "8"    "bzzt" "10"   "11"   "bzzt" "bzzt" "14"   "bzzt" "16"   "17"   "bzzt" "19"   "20"   "bzzt" "22"   "bzzt" "bzzt" "25"   "26"   "bzzt" "28"   "29"   "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "40"   "41"   "bzzt" "bzzt" "44"   "bzzt" "46"   "47"   "bzzt" "49"   "50"   "bzzt" "52"   "bzzt" "bzzt" "55"   "56"   "bzzt" "58"   "59"   "bzzt" "61"   "62"   "bzzt" "64"   "65"   "bzzt" "67"   "68"   "bzzt" "70"   "71"   "bzzt" "bzzt" "74"   "bzzt" "76"   "77"   "bzzt" "79"   "80"   "bzzt" "82"   "bzzt" "bzzt" "85"   "86"   "bzzt" "88"   "89"   "bzzt" "91"   "92"   "bzzt" "94"   "95"   "bzzt" "97"   "98"   "bzzt" "100"  "101"  "bzzt" "bzzt" "104"  "bzzt" "106"  "107"  "bzzt" "109"  "110"  "bzzt" "112"  "bzzt" "bzzt" "115"  "116"  "bzzt" "118"  "119"  "bzzt" "121"  "122"  "bzzt" "124"  "125"  "bzzt" "127"  "128"  "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "140"  "bzzt" "142"  "bzzt" "bzzt" "145"  "146"  "bzzt" "148"  "149"  "bzzt" "151"  "152"  "bzzt" "154"  "155"  "bzzt" "157"  "158"  "bzzt" "160"  "161"  "bzzt" "bzzt" "164"  "bzzt" "166"  "167"  "bzzt" "169"  "170"  "bzzt" "172"  "bzzt" "bzzt" "175"  "176"  "bzzt" "178"  "179"  "bzzt" "181"  "182"  "bzzt" "184"  "185"  "bzzt" "187"  "188"  "bzzt" "190"  "191"  "bzzt" "bzzt" "194"  "bzzt" "196"  "197"  "bzzt" "199"  "200"  "bzzt" "202"  "bzzt" "bzzt" "205"  "206"  "bzzt" "208"  "209"  "bzzt" "211"  "212"  "bzzt" "214"  "215"  "bzzt" "217"  "218"  "bzzt" "220"  "221"  "bzzt" "bzzt" "224"  "bzzt" "226"  "227"  "bzzt" "229"  "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "241"  "242"  "bzzt" "244"  "245"  "bzzt" "247"  "248"  "bzzt" "250"  "251"  "bzzt" "bzzt" "254"  "bzzt" "256"  "257"  "bzzt" "259"  "260"  "bzzt" "262"  "bzzt" "bzzt" "265"  "266"  "bzzt" "268"  "269"  "bzzt" "271"  "272"  "bzzt" "274"  "275"  "bzzt" "277"  "278"  "bzzt" "280"  "281"  "bzzt" "bzzt" "284"  "bzzt" "286"  "287"  "bzzt" "289"  "290"  "bzzt" "292"  "bzzt" "bzzt" "295"  "296"  "bzzt" "298"  "299"  "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "400"  "401"  "bzzt" "bzzt" "404"  "bzzt" "406"  "407"  "bzzt" "409"  "410"  "bzzt" "412"  "bzzt" "bzzt" "415"  "416"  "bzzt" "418"  "419"  "bzzt" "421"  "422"  "bzzt" "424"  "425"  "bzzt" "427"  "428"  "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "bzzt" "440"  "bzzt" "442"  "bzzt" "bzzt" "445"  "446"  "bzzt" "448"  "449"  "bzzt" "451"  "452"  "bzzt" "454"  "455"  "bzzt" "457"  "458"  "bzzt" "460"  "461"  "bzzt" "bzzt" "464"  "bzzt" "466"  "467"  "bzzt" "469"  "470"  "bzzt" "472"  "bzzt" "bzzt" "475"  "476"  "bzzt" "478"  "479"  "bzzt" "481"  "482"  "bzzt" "484"  "485"  "bzzt" "487"  "488"  "bzzt" "490"  "491"  "bzzt" "bzzt" "494"  "bzzt" "496"  "497"  "bzzt" "499"  "500"

Fortran - 118 114 111

Kandidat yang sangat tidak mungkin, meskipun awalnya dikembangkan agar sesuai dengan kartu punch. Dengan menggunakan semua konstruksi yang tidak jelas dari masa lalu, beberapa kode pendek mungkin masih ditulis:

do3 i=1,500
j=i
if(mod(i,3))2,1,2
1 print*,'bzzt'
cycle
2 goto(1)mod(j,10)-2
j=j/10
if(j>0)goto2
3 print*,i
end

Cabang "computed goto" goto(L1,L2,...,Ln) xke salah satu label L jika dan hanya jika 1 <= x <= n.

Sunting: Berhasil mencukur 4 byte dengan mengatur ulang loop yang memeriksa angka 3. Sebagai bonus, kode sekarang juga berisi aritmatika if-statement if(x) a,b,c, yang selalu bercabang ke salah satu dari tiga label: a jika x <0, b jika x == 0 atau c jika x> 0.

Sayangnya, dua versi pertama tidak menghasilkan output yang benar. Digit-3 loop sekarang berfungsi dengan benar, dan kode sekarang juga menyertakan pernyataan if logis logis modern. Tiga byte lagi hilang, karena siapa yang butuh enddopernyataan? Outputnya dapat diverifikasi di sini .