Revision as of 03:18, 24 April 2010 (view source) rosettacode>Dgamey m (→‎{{header\|Icon}}) ← Older edit		Revision as of 18:50, 26 April 2010 (view source) Christian (talk \| contribs) m (→‎{{header\|PureBasic}}) Newer edit →
Line 394: =={{header\|PureBasic}}== EnableExplicit ~~<lang PureBasic>Procedure.s getCode(c.s)~~ ~~Define~~Procedure.s getCode ~~= ""~~(c.s) Protected getCode.s = "" If FindString("BFPV", c ,1) : getCode = "1" : EndIf Line 408 ⟶ 409: Procedure.s soundex(word.s) ~~Define~~Protected.s previous.s = "" , code.s , current , soundex Protected.i i word = UCase(word)

Soundex: Difference between revisions

Soundex (view source)