Initial data commit

Task/Semordnilap/PureBasic/semordnilap.basic

@@ -0,0 +1,24 @@
+If OpenConsole("")=0 : End 1 : EndIf
+If ReadFile(0,"./Data/unixdict.txt")=0 : End 2 : EndIf
+NewList dict$()
+
+While Eof(0)=0 : AddElement(dict$()) : dict$()=Trim(ReadString(0)) : Wend : CloseFile(0)
+
+While FirstElement(dict$())
+  buf$=dict$() : DeleteElement(dict$())
+  If buf$="" : Continue : EndIf
+  xbuf$=ReverseString(buf$)
+  ForEach dict$()
+    If xbuf$=dict$()
+      res$+buf$+" / "+xbuf$+#LF$
+      Break
+    EndIf
+  Next
+Wend
+
+PrintN("Semordnilap pairs found: "+Str(CountString(res$,#LF$)))
+For k=1 To 5
+  If k=1 : PrintN(~"\nFirst 5 pairs: "+StringField(res$,k,#LF$)) : Continue : EndIf
+  PrintN(Space(15)+StringField(res$,k,#LF$))
+Next
+Input()