Data update

Task/Semordnilap/Yabasic/semordnilap.basic

@@ -0,0 +1,60 @@
+dim norm$(27000), result$(270, 2)
+
+print "Start reading unixdict.txt"
+open "i:\unixdict.txt" for reading as #1
+
+while not(eof(#1))                   // read to end of file
+    line input #1 in_str$            // get line = word
+    in_str$ = trim$(in_str$)         // we don//t want spaces
+    if len(in_str$) > 1 then         // if length > 1 then reverse$
+        rev$ = reverse$(in_str$)
+        if in_str$ <> rev$ then      // if in_str is not a palingdrome
+            count = count + 1        // increase counter
+            norm$(count) = in_str$   // store in the array
+            big$ = big$ + rev$ + " " // create big string with reverse$d words
+        fi
+    fi
+wend
+
+close #1
+print " ... Done"
+print
+print "Start looking for semordnilap"
+
+for i = 1 to count
+    for j = 1 to amount                          // check to avoid the double
+        if result$(j, 2) = norm$(i)  continue
+    next j
+    j = instr(big$, " " + norm$(i) + " ")
+    if j <> 0 then                               // found one
+        amount = amount + 1                      // increase counter
+        result$(amount, 1) = norm$(i)            // store normal word
+        result$(amount, 2) = reverse$(norm$(i))  // store reverse$ word
+    fi
+next i
+
+print
+print "Found", amount, " unique semordnilap pairs"
+print
+print "Display 5 semordnilap pairs"
+print
+
+count = 0
+for i = 1 to amount
+    if len(result$(i, 1)) >= 5 then
+        count = count + 1
+        print result$(i, 1), chr$(9), result$(i, 2)
+        if count >= 5  break
+    fi
+next i
+end
+
+sub reverse$(norm$)
+    local rev$, i, l
+    l = len(norm$) - 1
+    rev$ = norm$
+    for i = 0 to l
+        mid$(rev$, l - i, 1) = mid$(norm$, i, 1)
+    next i
+    return rev$
+end sub