Mr.Tの場所

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

ネタ元： http://app.blog.livedoor.jp/dankogai/tb.cgi/50956547

ハンドルニコニコ。

    Sub Main()
        Dim rData As String = Console.ReadLine()

        If rData = "" Then Exit Sub
        Console.Clear()

        Dim onehand() As String = {"＼", "／"}
        Dim twohand() As String = {"＝", "人"}

        Dim rndVal As Random = New Random()
        Dim hand As String = ""
        Dim i As Integer = 0

        Console.Write(onehand(0))
        Do
            If i < rData.Length Then
                Console.Write("(^{0}^)", rData.Substring(i, 1))
                hand = twohand(rndVal.Next(2))
                If i < rData.Length - 1 Then
                    Console.Write(hand)
                Else
                    Console.Write(onehand(1))
                End If
                i += 1
            Else
                Exit Do
            End If
        Loop
        Console.WriteLine()
        Console.Read()
    End Sub

いや、笑えたので(^^

すんごい適当なんで、最初と最後の手の形が一定とか、英字ハンドルでないとわけわからんとか、あるけど

それなりそれなり。

ちなみに、私は、こうなった。

＼(^M^)人(^r^)＝(^.^)＝(^T^)／