Soundex: Difference between revisions
m
→{{header|Mathematica}}
(→{{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;
| |||