Gfrktyl

I know, this sounds really difficult, but it is really easy.

I needed to convert a single Portuguese word in the plural into singular. I know there's a right name for that, but it is escaping me.

The rules are simple, and will compile them from http://www.easyportuguese.com/portuguese-lessons/plural/ (but applying in reverse):

• If the word ends in a vowel, remove the s at the end


• Words ending in ões, ães and ãos should end with ão
  


• Words ending in is, remove the is and add l to the end
  Special case: accents should be removed, if needed. The only cases I saw were anéis and pastéis, which have to be anel and papel.


• Words ending in ns get it replaced with m
  


• Words ending with [rsz]es should lose the es
  Special case: words ending in eses need the first e replaced with ê, like in meses => mês
  


• Some words are always used in the plural, like óculos, parabéns and férias.

Below, here's the code:

function plural_to_singular($string)

{

    if(preg_match('/^(?:[oó]culos|parab[eé]ns|f[eé]rias)$/iu', $string))

    {

        return $string;

    }



    $regexes = array(

        '[õã]es' => 'ão',

        '[áó].*eis' => 'el',

        '[eé]is' => 'el',

        '([^eé])is' => '$1l',

        'ns' => 'm',

        'eses' => 'ês',

        '([rzs])es' => '$1',

        's' => ''

    );



    foreach($regexes as $fragment => $replace)

    {

        $regex = '/' . $fragment . '$/ui';

        if(preg_match($regex, $string))

        {

            return preg_replace($regex, $replace, $string);

        }

    }



    return $string;

}

You can try it on http://sandbox.onlinephpfunctions.com/code/7947a0efd16f361e89491e4a64f71b578d2278df with some testcases

In your opinion, what can I improve?

Is there any obvious butchering or performance killer?

Other than for simplicity of being able apply all replacement rules easily, and with more maintainable code, I don't see an absolute need to use regex for this, as simple string manipulation should be able to be used here and may be better from a performance standpoint.

There is no reason for you to loop over the regex array and preg_replace() each individually, as preg_replace() accepts arrays for both patterns and replacements.

So you could easily do something like:

preg_replace($pattern_array, $replacement_array, $string);

I don't like your approach of building the regex pattern in two places, why not define entire pattern in regex array? You might have something like this:

$regex_config = array(

     'ão' => '/[õã]es$/iu',

    ...

);

$pattern_array = array_values($regex_config);

$replacement_array = array_keys($regex_config);

$result = preg_replace($pattern_array, $replacement_array, $string, 1); 

You also have a potential edge case you might need to address. What if subject string is all caps? Since you use case-insenstive match you could end up with an all-caps plural word geting lowercase letters replaced into it. Should you really be case-insensitive here?

Should your function name indicate that the function is only applicable to Portugeuse?

Let me start by saying, that I have respect for Mike Brant, and have been enjoying his posts for quite a while now. However, his answer to this question is not his finest.

1. 
   $regex_config can not store the the replacement values as associative keys unless the regex patterns that use the same replacement value are merged. This is not explained in the ... (yatta-yatta). The key clash would be on el.


2. Simply throwing 1 at the end of preg_replace() is NOT going to provide the desired output. Declaring a replacement limit on the call will only limit the replacements PER array element. The damage is evident in this output: meses => mês = mê
   


3. Most trivially, array_values() doesn't need to be called because preg_replace() is "key ignorant" regarding the array inputs.

1. For this process to maintain accuracy, there needs to be a return as soon as a replacement occurs on the input string. To avoid calling multiple replacements, iterate the array of pattern-replacement pairs.


2. You can avoid using capture groups and shorten your replacement strings in a couple places by implementing the K metacharacter (restart fullstring match). This way you don't need to use $1 or rewrite a literals from the pattern into the replacement.


3. If you need to add case-sensitivity to your replacement process, you can check the last character of the incoming string. If it is uppercase, assume the whole string is in CAPS and call mb_strtoupper().


4. I don't have a sample string to test against ~[áó].*eis$~iu, but I wonder if this is accurate/correct and my Portuguese is not too sharp.



5. After my implementation of K you can see that two pairs of patterns are making the same replacement. If you don't expect to be making lots of future adjustments to this set of regex patterns, you could combine the patterns with a pipe. Here's what I mean: '~(?:[áó].*eis|[eé]is)$~iu' => 'el', and '~(?:[rzs]Kes|s)$~iu' => ''




6. I am using the regex patterns as the keys because they will all logically be unique. the same cannot be said about the replacement values (not without merging anyhow).

Code: (Demo)

function is_allcaps($string)

{

    $last_letter = mb_substr($string, -1, 1, 'UTF-8');

    return $last_letter === mb_strtoupper($last_letter, 'UTF-8');

    // otherwise use cytpe_upper() and setlocale()

}



function plural_to_singular($string)

{

    // quick return of "untouchables"

    if(preg_match('~^(?:[oó]culos|parab[eé]ns|f[eé]rias)$~iu', $string))

    {

        return $string;

    }



    $regex_map = [

        '~[õã]es$~iu' => 'ão',

        '~(?:[áó].*e|[eé])is$~iu' => 'el',

        '~[^eé]Kis$~iu' => 'l',

        '~ns$~iu' => 'm',

        '~eses$~iu' => 'ês',

        '~(?:[rzs]Ke)?s$~iu' => ''

    ];



    foreach ($regex_map as $pattern => $replacement)

    {

        $singular = preg_replace($pattern, $replacement, $string, 1, $count);

        if ($count)

        {

            return is_allcaps($string) ? mb_strtoupper($singular) : $singular;



        }

    }

    return $string;

}



$words = array(

    'óculos' => 'óculos',

    'papéis' => 'papel',

    'anéis' => 'anel',

    'PASTEIS' => 'PASTEL',

    'CAMIÕES' => 'CAMIÃO',

    'rodas' => 'roda',

    'cães' => 'cão',

    'meses' => 'mês',

    'vezes' => 'vez',

    'luzes' => 'luz',

    'cristais' => 'cristal',

    'canções' => 'canção',

    'nuvens' => 'nuvem',

    'alemães' => 'alemão'

);



foreach($words as $plural => $singular)

{

    echo "$plural => $singular = " , plural_to_singular($plural) , "n";

}