' A number with an odd number of digits and zero in the center is Cyclops number
Imports System
Public Class Program
Private Shared Function isCyclopsNumber(ByVal n As Integer) As Boolean
If n = 0 Then
Return True
End If
Dim m As Integer = n Mod 10
Dim count As Integer = 0
While m <> 0
count += 1
n = n \ 10
m = n Mod 10
End While
n = n \ 10
m = n Mod 10
While m <> 0
count -= 1
n = n \ 10
m = n Mod 10
End While
Return n = 0 AndAlso count = 0
End Function
Public Shared Sub Main(ByVal args As String())
Console.WriteLine((If(isCyclopsNumber(209), "yes", "no")))
Console.WriteLine((If(isCyclopsNumber(18037), "yes", "no")))
Console.WriteLine((If(isCyclopsNumber(5604), "yes", "no")))
End Sub
End Class
' run:
'
' yes
' yes
' no
'
