Soundex: Difference between revisions
Content deleted Content added
→{{header|PureBasic}}: Before it returned wrong code in some words (e.g. Lloyd, Pfister) |
|||
Line 2,837:
<pre>all tests ok</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Soundex[ input_ ] := Module[{x = input, head, body},
{head, body} = {First@#, Rest@#}&@ToLowerCase@Characters@x;
| |||