Data update

Task/Eertree/FreeBASIC/eertree.basic

@@ -0,0 +1,41 @@
+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