勝者：AditsuのCJam回答！なんと25バイト！いいね！

引き続き回答を送信できますが、勝つことはできません。後世のために保管された元の投稿：

「Bzzt」ゲームは、数を数える必要があるゲームです（この場合は500）。ただし、数値に3が含まれている場合、または3で割り切れる場合は、その数値を言うことはありません。代わりに、「Bzzt」と言います。

ルール：

• 数字をハードコーディングすることはできません。
• 数は、以下の要件のうち少なくとも1つを満たす必要があります。
  • 3で割り切れる
  • 数字には3が含まれています
• 一部のタイプの区切り文字は必須です（12bzzt14はカウントしません）
• スコアはバイト単位で測定されます。
• 1または0（選択）から開始して、正確に500までカウントする必要があります。
• 数値は出力する必要がありますが、その方法は関係ありません（たとえば、stdout、テキストファイルへの書き込みなど）。
• 0は3で割り切れるか、割り切れません。選んでいいですよ。
• 数値を一度に1つずつ（たとえば、出力1、次に2、次にbzzt、次に4など）または一度にすべて出力できます（たとえば、出力1 2 bzzt 4 5）。
• 文字3を単語「bzzt」に置き換える必要があります。これは大文字と小文字を区別しません（bZzt、Bzzt、bzztはすべて大丈夫です）。

• これはコードゴルフの挑戦なので、最短のコードが勝ちます。
• このコンテストは2014年6月30日（投稿から7日）で終了します。

CJam-25

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

ありがとうハワード:)

http://cjam.aditsu.net/で試してください

説明：

501{…}fIある基本的にfor(int I=0; I<501; ++I) {…}
3s、すなわち「3」、列3に変換
I3%されI％3は
<、左サブストリングを取得する- "3".substring(0, I % 3)- 「の」であるI％3 == 0「3」はそうでない
Is変換I文字列に
-、空に設定された差得られない2列とIFF列I％3 == 0（最初の文字列が空であった）、またはI、それが3桁を有する
…I"bzzt"?などです… ? I : "bzzt"。前の文字列はブール値として扱われます。 ""はfalseで、他の文字列はtrueで
N、改行を追加します

ルビー、43

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

とても簡単です。

編集：ハワードに感謝、1バイト保存しました！

seqおよびGNU sed- 42 33 31 30

ダッシュで直接動作します。他のシェルでは、たとえばbashを使用して、履歴展開を無効にする必要がある場合がありますset +H。

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

DOS（.comファイル）のx86マシンコード-71バイト

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.|

スペースを区切り文字として使用して、必要な出力を標準出力に出力します。DosBoxで問題なく実行できます。

コメント付きアセンブリ：

    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、セパレータなし-62、61、59、58、52、49 47

それらの間にスペース/改行/セパレータがあるべきだと言っているわけではありません。

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

セパレーター付き、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

• 小さな「チート」を見つけただけで、後echoにスペースを必要としないで、少し助けてくれました。
• ~õ改行を作成します
• もう1つの小さな「チート」、bzztは引用符を必要としません（テスト済み）。行く方法ではありませんが、うまくいきます。

Javascript- 54,51 50

同じ原理ですが、JavaScript関数は次のとおりです。

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

Javascript 50 49

core1024のおかげで-1バイト

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

GolfScript、30 29文字

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

GolfScriptでの簡単な実装ではありませんが、ここでテストできます。

Perl、36

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

編集：私はPerlの修道士ではないので、core1024は彼の答えでこれから別のバイトをゴルフすることに成功したようです。

C＃（71）

LinqPadで直接実行できます。

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

パイソン（52）

grcに感謝します！

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

旧版：

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

ハスケル：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)

配列の使用を提案してくれたedc65に感謝します。出力はコンマ区切りになります。

旧バージョン

バージョン1a-66

ルールに従って、アラートボックスに1〜500を印刷します。出力はスペースで区切られます。

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

バージョン1b-65

0を3で割り切れないと見なす場合、ソリューションを65文字に短縮できます。

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

バージョン2-63

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

長さを短くする提案をしてくれたgrcに感謝します。

PowerShell、42

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

ほとんどがVenteroの仕事で、構文は少し助けてくれました;-)

R、49文字

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

説明：

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

使用法：

> 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

コブラ-70

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

バッチ-222

私はこの言語が本当に好きだから...なんらかの理由で...

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

TI-BASICのほとんどのコマンドは、シングルバイトエンティティとして表されることに注意してください。

コードでは、Xを事前に0に初期化する必要があります（それ以外の場合は、余分な3バイトです）。

いくつかのバイトを削る試みを何度か行ったので、ここでやったことをすべて詳しく説明しているわけではありません。それらは主にループを短縮することを目的としており、このバージョンでは、WhileループとAns変数を使用してIf条件を短縮しました。

C、93

地獄のために...

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

ジュリア64バイト

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

...完全に単純なワンライナーが存在する場合、なぜバッチファイルを使用するのか... :-)

グルーヴィー-51

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

編集：times印刷バージョンの使用は、「表示」と同じくらい短くなりました。ありがとう@ will-p

C、80

改行ではなくスペースを区切り文字として使用します。

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

Mathematica、54文字

これは簡単すぎると感じています。より短いソリューションが可能でなければなりません。

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

T-SQL 2008-80

勝つつもりはありませんが、それでも楽しいだけです：@domagerのおかげで微調整されました：

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

少し知られている事実、@は変数の有効な名前です。セットベースのコードはより多くのSQLバリアントであるため奇妙に感じますが、短いほど短くなります！このバージョンはどのデータベースでも動作します。編集：私はセミが必要ないので2つのセミを削除することができました。これが最適であると確信しています。

Edit2：決して言わないでください。ここでは、gotoを使用することでより粗雑になりましたが、ブロックを回避できます。while、begin、endを短いif、t：、gotoで置き換えて、6文字を保存できます。また、ループを擬似do-whileとして書き直すことにより、ステートメントを再配置します。編集3：ええ、どういうわけか今は短くなっています。元の：

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

masterデータベースで実行する必要があります。騒がしくてugい方法にもかかわらず、私はT-SQLが大好きです。これを簡単にする方法があるかもしれませんが、残念なことに、iif組み込みでは両側で型が一致する必要があります。SQLサーバーの優先ルールは、文字列よりもintに高い優先順位を与えます。数字も非常に長いですが、エイリアシングは価値がある以上の文字です。数値を文字列に変換するより良い方法があるかもしれません。編集：strも動作します。ltrimより2文字少ない

VBA：54

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

お気に入りのOfficeプログラムを開き、Altキーを押しながらF11キーを押してVBA IDEを開き、コードをイミディエイトペインに貼り付けてEnterキーを押します。

VBAでは、：は行区切り文字ですか？は印刷の省略形であり、iifはインラインif（x？ "Y"： "N"と考える）を意味し、x / 3は浮動小数点除算を行い、x \ 3は整数除算を行い、instrは文字列のcharの位置を返します。それ以外の場合、true = -1およびfalse = 0。

コードは基本的にxをインクリメントし、x / 3 = x \ 3 = instr（1、x、3）がtrueの場合はxを出力し、それ以外の場合は「Bzzt」を出力します。x / 3 = x \ 3は（float）（x / 3）と（int）（x / 3）を比較し、ブール値を返します（0はfalse、-1はtrue）。instr（1、x、3）は、数値に「3」が含まれていない場合は0を返し、そうでない場合は正の整数を返します。式がtrueを返すのは、（x / 3 = x \ 3）がfalse（0）でinstr（1、x、3）が0の場合、つまりxが3で割り切れず、数字「3」が含まれています。これはまさに探しているものです。

k4 （37）（35）

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

k4組み込みのモジュロコマンドが不足しており、これを使用qすると余分な文字が必要になります。このバージョン（ab）は、組み込みの出力形式を使用しxて、3 で除算した結果の文字列に小数点があるかどうかを確認します。

編集：

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

巧妙であってもよい小数点のマッチングとして、私はそれがチェックすることにより、2つのバイトを剃ることができ3*floor x%3、依然としてありますx。

バッシュ、 53 52 48 46

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

GNU sedが必要です（c拡張機能を使用）。

Java、 142 131 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）

これは基本的に少し短縮されたplannapusの答えですが、まだコメントできません

更新：-4文字（plannapusのコメントを参照）

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

出力：

  [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

元々はパンチカードに収まるように開発されましたが、絶望的にはありそうもない候補者です。過去のすべてのあいまいな構成を使用して、いくつかの短いコードがまだ記述されている場合があります。

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

「計算されたgoto」goto(L1,L2,...,Ln) xは、1 <= x <= nの場合にのみ、ラベルLの1つに分岐します。

編集：数字3をチェックするループを再配置することにより、4バイトを削減しました。ボーナスとして、コードには算術if-statementも含まれ、if(x) a,b,c常に3つのラベルのいずれかに分岐します：a if x <0、b x == 0の場合、またはx> 0の場合はc。

残念ながら、最初の2つのバージョンでは正しい出力が生成されませんでした。digit-3ループが正しく機能するようになり、コードに最新の論理if文も含まれるようになりました。誰がenddo声明を必要とするので、さらに3バイトがなくなっていますか？ここで出力を確認できます。