[STOCK] num_to_roman / roman_to_num

[Milashkasiya]

Dos simples stocks que sirven para convertir un número entero a romano y viceversa - convertido a Pawn desde las fuentes que dejaré al final del post.
El número debe ir entre 1 y 3999, porque después del 3999 se utiliza caracteres especiales que no son soportados.

num_to_roman: Convierte un número entero a romano.
Devuelve la longitud del número romano generado, para números invalidos devolverá cero (0).

Código PHP:

stock num_to_roman( num, roman[], len )
{
    if( num < 1 || num > 3999 )
        return 0;
    
    static const intnums[ ] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 };
    static const romnums[ ][ ] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I" }; 

    new pos;
    
    for( new i; i < sizeof intnums && pos < len && num; i++ )
    {
        while( num >= intnums[i] && pos < len )
        {
            num -= intnums[ i ];
            pos += copy( roman[pos], 2, romnums[i] );
        }
    }
    
    return pos;
} 


roman_to_num: Convierte un número romano a entero.
Devuelve el número entero generado, para caracteres invalidos devolverá cero (0).

Código PHP:

stock roman_to_num( const roman[] )
{
    #define int(%1,%2) \
    switch( %1 ) \
    { \
        case 'I': %2 = 1;    \
        case 'V': %2 = 5;    \
        case 'X': %2 = 10;   \
        case 'L': %2 = 50;   \
        case 'C': %2 = 100;  \
        case 'D': %2 = 500;  \
        case 'M': %2 = 1000; \
        default : return 0;  \
    }
    
    new j, k;
    new num;
    
    for( new i = strlen(roman) - 1; i > -1; i-- )
    {
        int( roman[i], j )
        num += j < k ? -j : j;
        k = j;
    }
    
    return num;
} 


Ejemplo de uso:

Código PHP:

#include <amxmodx>

public plugin_init( )
{
    register_plugin( "Roman numerals", "1.0", "Milashkasiya" )
    register_srvcmd( "test", "srvcmd_test" );
}

public srvcmd_test( id )
{
    new szRomanNum[ 16 ];
    for( new i = 1; i <= 298; i++ )
    {
        num_to_roman( i, szRomanNum, charsmax(szRomanNum) );
        server_print( "%i -> %s", roman_to_num(szRomanNum), szRomanNum );
    }
}


stock num_to_roman( num, roman[], len )
{
    if( num < 1 || num > 3999 )
        return 0;
    
    static const intnums[ ] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 };
    static const romnums[ ][ ] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I" }; 

    new pos;
    
    for( new i; i < sizeof intnums && pos < len && num; i++ )
    {
        while( num >= intnums[i] && pos < len )
        {
            num -= intnums[ i ];
            pos += copy( roman[pos], 2, romnums[i] );
        }
    }
    
    return pos;
}

stock roman_to_num( const roman[] )
{
    #define int(%1,%2) \
    switch( %1 ) \
    { \
        case 'I': %2 = 1;    \
        case 'V': %2 = 5;    \
        case 'X': %2 = 10;   \
        case 'L': %2 = 50;   \
        case 'C': %2 = 100;  \
        case 'D': %2 = 500;  \
        case 'M': %2 = 1000; \
        default : return 0;  \
    }
    
    new j, k;
    new num;
    
    for( new i = strlen(roman) - 1; i > -1; i-- )
    {
        int( roman[i], j )
        num += j < k ? -j : j;
        k = j;
    }
    
    return num;
} 


Fuente: Encode | Decode

[ErikMav94]

Muy bueno

[Ipolito]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

[FloresMagon]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

convertir números, a romanos


Muchas gracias Srita. lo utilizare xd

[Dr.- House]

Esta muy bueno

[matrix123]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

https://amxmodx-es.com/Thread-Mostrar-numero-como-texto

[ErikMav94]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

https://amxmodx-es.com/Thread-Mostrar-numero-como-texto

para que lo mandas a otro thread si en este mismo lo explica?

Dos simples stocks que sirven para convertir un número entero a romano y viceversa

[matrix123]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

https://amxmodx-es.com/Thread-Mostrar-numero-como-texto

para que lo mandas a otro thread si en este mismo lo explica?

Dos simples stocks que sirven para convertir un número entero a romano y viceversa

Preguntó la utilidad, ahi le pasé para que vea la razón de este aporte.

[Ipolito]

Esta muy bueno, me gusto .

Pero cual seria su utilidad ?

convertir números, a romanos


Muchas gracias Srita. lo utilizare xd

Ya se maquinola, a lo que voy, quien lo usaria en el cs 1.6 ? osea, lo veo inutil, pero esta bueno

[UnoMas]

Muchas gracias, justo lo que buscaba

[sasske]

Jumm, esta bueno, aunque dudo que muchos lo usen a menos que enseñen historia en su servidor

Pero bueno, esta bien que exista no?