L.Entisの日記： fizz buzz on ヲレ言語２

前に書いた「fizz buzz on ヲレ言語」ですが、表のトピック内で、剰余演算子を使わないで…云々というのがあったので、剰余を使わないのを書いてみました。

DeclareType File
Constant modeWrite := 0004H

Function main()

File cout
cout.Open( "", modeWrite )

Array aText := { String, "Fizz", "Buzz", "FizzBuzz" }

Integer fizz := 3
Integer buzz := 5
For i := 1 To 100
aText[0] := i
fizz -= 1
buzz -= 1
cout += aText[(!fizz & 1) | (!buzz & 2)]
fizz += !fizz & 3
buzz += !buzz & 5
Next

EndFunc

ま、こんなのが普通じゃないですかね…？？
If 文が無いのは普通じゃないか………も？