After a little digging:

   Pick Basic

      IF STRING1 = STRING2 THEN
         LD = 0
      END ELSE
         S.LEN = LEN(STRING1)
         C.LEN = LEN(STRING2)
         MAT LD.MTX = ''
         DIM LD.MTX(100,100)
         FOR I = 3 TO S.LEN + 2
            LD.MTX(I,1) = STRING1[I-2,1]
         NEXT I
         FOR I = 3 TO S.LEN + 2
            LD.MTX(I,2) = I - 2
         NEXT I
         FOR I = 3 TO C.LEN + 2
            LD.MTX(1,I) = STRING2[I-2,1]
         NEXT I
         FOR I = 3 TO C.LEN + 2
            LD.MTX(2,I) = I - 2
         NEXT I
         FOR I = 3 TO (S.LEN+2)
            S.LETTER = LD.MTX(I,1)
            FOR J = 3 TO (C.LEN+2)
               C.LETTER = LD.MTX(1,J)
               IF C.LETTER = S.LETTER THEN COST = 0 ELSE COST = 1
               P1 = LD.MTX(I-1,J) + 1
               P2 = LD.MTX(I,J-1) + 1
               P3 = LD.MTX(I-1,J-1) + COST
               IF P1 < P2 THEN LD.NUM = P1 ELSE LD.NUM = P2
               IF P3 < P2 THEN LD.NUM = P3
               LD.MTX(I,J) = LD.NUM
            NEXT J
         NEXT I
         LD = LD.MTX(S.LEN+2,C.LEN+2)
      END



Wjhonson wrote:
http://en.wikipedia.org/w/index.php?title=Levenshtein_distance&oldid=63073322


-----Original Message-----
From: Baker Hughes <baker.hug...@mouser.com>
To: U2 Users List (u2-users@listserver.u2ug.org) <u2-users@listserver.u2ug.org>
Sent: Wed, Apr 17, 2013 10:39 am
Subject: [U2] Any code share for Levenshtein distance


Hi,

Does anyone have any Basic code that implements the algorithm, Levenshtein distance?

We are playing with words for a fraud detection project, trying discover bad guys better.

TIA,
-Baker

Thanks for all the good discussions - I'm lurking and reading now and then. Others usually provide splendid answers.



  ________________________________

This communication, its contents and any file attachments transmitted with it are intended solely for the addressee(s) and may contain confidential proprietary information. Access by any other party without the express written permission of the sender is STRICTLY PROHIBITED. If you have received this communication in error you may not copy, distribute or use the contents, attachments or information in any way. Please destroy it and contact the sender.
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
.


--
------------------------------------------------------------------------
Jeff Schasny - Denver, Co, USA
jschasny at gmail dot com
------------------------------------------------------------------------
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to