Imports System
Public Module Module1
Public Function same_frequencies(s As String) As Boolean
Dim letters(256) As Integer
Dim len As Integer = s.Length
For i As Integer = 0 To len - 1
if (Char.IsLetter(s(i))) Then
letters(Convert.ToByte(s(i))) = letters(Convert.ToByte(s(i))) + 1
End If
Next
Dim frequencies As Integer = 0
For i As Integer = 0 To 256
if (letters(i) <> 0) Then
frequencies = letters(i)
Exit For
End If
Next
For i As Integer = 0 To 256
If (letters(i) <> 0 And (letters(i) <> frequencies)) Then
return false
End If
Next
return true
End Function
Public Sub Main()
Dim s As String = "aaabbbcccwww"
If same_frequencies(s) Then
Console.Write("Yes")
Else
Console.Write("No")
End If
End Sub
End Module
' run
'
' Yes
'
