Soundex: Difference between revisions
Content deleted Content added
Soundex en FreeBASIC |
→{{header|PureBasic}}: Before it returned wrong code in some words (e.g. Lloyd, Pfister) |
||
Line 4,012: | Line 4,012: | ||
word = UCase(word) |
word = UCase(word) |
||
code = Mid(word,1,1) |
code = Mid(word,1,1) |
||
previous = |
previous = getCode(Left(word, 1)) |
||
For i = 2 To (Len(word) + 1) |
For i = 2 To (Len(word) + 1) |
||
current = getCode(Mid(word, i, 1)) |
current = getCode(Mid(word, i, 1)) |