Mr.Tの場所

Mr.Tです、こんにちは。

FizzBuzz問題ですよ。

前回、「ifなどの判定をまったく使わずに、できないか？」なので、
今回は、「ループ処理をまったく使わずに、できないか？」でチャレンジ。

#FFTをやってるので、縛りがちょっと快感w

Sub Main()
    Judge(1)
End Sub

Private Sub Judge(ByVal src As Integer)

    If src > 100 Then Exit Sub

    Dim message As String = ""
    Dim NextVal As Integer
    If (src Mod 3 = 0) And (src Mod 5 = 0) Then
        message = "FizzBuzz"
    ElseIf (src Mod 3 = 0) Then
        message = "Fizz"
    ElseIf (src Mod 5 = 0) Then
        message = "Buzz"
    Else
        message = src.ToString
    End If

    NextVal = src + 1
    Console.WriteLine("i={0}", message)
    Judge(NextVal)
End Sub

やはり簡単...オチないよorz