42 lines
810 B
Plaintext
42 lines
810 B
Plaintext
Dim As String cadena = "eertree"
|
|
Dim As Integer n, m, p, cnt = 0
|
|
Dim As String strpal, strrev
|
|
Dim As String pal(1 To Len(cadena)^2)
|
|
|
|
For n = 1 To Len(cadena)
|
|
For m = n To Len(cadena)
|
|
strpal = Mid(cadena, n, m-n+1)
|
|
strrev = ""
|
|
For p = Len(strpal) To 1 Step -1
|
|
strrev &= Mid(strpal, p, 1)
|
|
Next p
|
|
If strpal = strrev Then
|
|
cnt += 1
|
|
pal(cnt) = strpal
|
|
End If
|
|
Next m
|
|
Next n
|
|
|
|
For n = 1 To cnt-1
|
|
For m = n+1 To cnt
|
|
If pal(n) > pal(m) Then
|
|
Swap pal(n), pal(m)
|
|
End If
|
|
Next m
|
|
Next n
|
|
|
|
For n = cnt To 2 Step -1
|
|
If pal(n) = pal(n-1) Then
|
|
For m = n To cnt-1
|
|
pal(m) = pal(m+1)
|
|
Next m
|
|
cnt -= 1
|
|
End If
|
|
Next n
|
|
|
|
For n = 1 To cnt
|
|
Print pal(n)
|
|
Next n
|
|
|
|
Sleep
|