44 replies to this topic

[cram]

Les propongo el siguiente reto.

 

Pero antes que alguien me diga que es una solución más que conocida y con varios ejemplos rondando por la red, aclaro que va con límites.

 

Pasar de un número expresado en forma de dígitos a su correspondiente en letras o sea su nombre. Por ejemplo:

 

4923 -> cuatromil novescientos veintitres

 

Para evitar el uso exagerado de fuerza bruta, propongo la limitación de hacerlo en alrededor de cien líneas totales de código pascal.

Para hacerlo algo más interesante también propongo una breve explicación del método.

 

Espero sus respuestas

Saludos

 

[egostar]

Y de una vez como un objeto????      :lol: 

[Nikolas]

lo tengo resuelto en 255 lineas de xxxxxxx,xx a x,xx

 

[poliburro]

Interesante reto...

[cram]

lo tengo resuelto en 255 lineas de xxxxxxx,xx a x,xx

 

 

Nikolas, debe tener alrededor de 100 líneas.

 

Obviamente, para que sea un reto, debe haber solución.

Yo lo tengo resuelto y les cuento que tuve que usar la solución de un programador que desconozco, que publicó este desarrollo. Me ví obligado, dada la escaséz de tiempo. Pero jamás soporté el hecho de usar algo copiado y pegado (no me gusta).

Hace un tiempo empecé una solución y otra vez la tuve que abandonar por la misma razón. Hoy, teniendo avanzado el programa principal se me ocurrió darle una "estocada letal" y lo hice. Tiene 120 líneas, pero no como el caso de Nikolas que permite la inclusión de coma.

En el futuro, lo pienso hacer con más opciones y encapsularlo en un componente... pero no será hoy, ya que para lo que quiero me sirve. Y eso es el caso de ponerle letras a las cifras en recibos emitidos.

El reto se me ocurrió porque mi código tiene más de 100 y pensé que sería interesante que alguien lo logre con menos de 100.

Hay cuestiones a tener en cuenta:

1) Los comentarios no se cuentan

2) los then y else van debajo no en la misma línea del if.

 

Saludos.

[poliburro]

Pregunta. 

 

Si lo hacemos en Delphi, ¿todas las líneas de código en la unidad cuentan? el uses, el type, etc etc etc?

[cram]

Pregunta. 

 

Si lo hacemos en Delphi, ¿todas las líneas de código en la unidad cuentan? el uses, el type, etc etc etc?

 

Claro,

 

Pero no las del dfm, por supuesto

[poliburro]

oks... Voy a compartir el reto esperando más colegas se sumen.

[Dragonlair]

Buenas horas colegas, esta es la primera vez que participo en el foro, me pareció interesasnte el reto, hace tiempo tuve que implementar esto y a razón de que no encontré un código funcional para freepascal implementé mi propio método para el objetivo, yo me basé en la lógica de la funcion de número a romano incluida en la lcl.

El código está en forma de una función estática contando 70 lineas.

Saludos.

[egostar]

.....El código está en forma de una función estática contando 70 lineas.......

 

Caramba!!! pues parece que ya tenemos a un duro competidor

 

bienvenido a delphiaccess amigo Dragolair.

 

Saludos

[Delphius]

Admito que el reto me tienta, pero debo primar otros proyectos.

Si se permite una sugerencia, más que fijarse en las LDC deberían fijarse en la complejidad ciclomática. No si se será posible estimar o llegar a un estudio de caso desde la complejidad computacional; el primer enfoque en el que pienso es que podría emplearse como variable la cantidad de dígitos. Si es posible abordar el caso, entonces aquel algoritmo que ofrezca el menor O(d) será el más óptimo.

 

Al menos la V(G) si es posible determinarla y puede ser útil para tener un mejor acercamiento que la subjetiva métrica LDC.

 

Saludos,

[cram]

Buenas horas colegas, esta es la primera vez que participo en el foro, me pareció interesasnte el reto, hace tiempo tuve que implementar esto y a razón de que no encontré un código funcional para freepascal implementé mi propio método para el objetivo, yo me basé en la lógica de la funcion de número a romano incluida en la lcl.

El código está en forma de una función estática contando 70 lineas.

Saludos.

 

Realmente impresionante.

 

No sabía que lázarus ya contaba con una función para eso.

En fin, todo vale.

 

Saludos

[cram]

Dragonlair,

 

Estuve viendo el código de Lázarus escrito por Preston y Truijillo, ¿es éste el que citas y al que has mejorado?

Tiene algo menos de 200 sin contar el encabezado (o sea comentarios)

Tiene un límite de 999.999.999, es decir 9 cifras y mucho de fuerza bruta. No lo conocía ni sabía que Lazarus tenía eso en su biblioteca de funciones. También tiene para muchas lenguas más.

 

Aquí dejo el código completo de Presotn y Trujillo:

delphi

Unit NumW_Esp;
 
{ Andy Preston, Apollo Developments, http://www.apollod.omnia.co.uk/aa/
 
  Numbers in words - Version 4.6
 
  Copyright © 1999 Andy Preston
  Copyright © 1999 Carlos García Trujillo
 
  Object-Pascal Units to express a number as words in various languages
 
  This unit is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public
  License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later
  version.
 
  This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for more details.
 
  You should have received a copy of the GNU Library General Public License along with this library; if not, write to the
  Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
  This unit an modified version of NLetra By Carlos García Trujillo
  mailto:cgar1136@geocities.com http://www.geocities.com/ResearchTriangle/Node/2174/ }
 
Interface
 
Uses
  NumW;
 
Type
  TNumWordsEspanol = Class (TNumWordsLangDriver)
  Private
    Function convierte (s : LongInt) : String;
  Public
    Function NumberInWords (TheNumber : Integer; Gender : TGender) : String; Override;
    Function IMoneyInWords (Major, Minor : Integer; EuroMode : Boolean) : String; Override;
    Function HasGender (Gender : TGender) : Boolean; Override;
  End;
 
Implementation
 
Uses
  SysUtils;
 
Function TNumWordsEspanol.HasGender (Gender : TGender) : Boolean;
Begin
  Result := (Gender <> genNeuter);
End;
 
Function TNumWordsEspanol.convierte (s : LongInt) : String;
Begin
  Case s Of
    1 : convierte := 'uno';
    2 : convierte := 'dos';
    3 : convierte := 'tres';
    4 : convierte := 'cuatro';
    5 : convierte := 'cinco';
    6 : convierte := 'seis';
    7 : convierte := 'siete';
    8 : convierte := 'ocho';
    9 : convierte := 'nueve';
    10 : convierte := 'diez';
    11 : convierte := 'once';
    12 : convierte := 'doce';
    13 : convierte := 'trece';
    14 : convierte := 'catorce';
    15 : convierte := 'quince';
    20 : convierte := 'veinte';
    30 : convierte := 'treinta';
    40 : convierte := 'cuarenta';
    50 : Convierte := 'cincuenta';
    60 : convierte := 'sesenta';
    70 : convierte := 'setenta';
    80 : convierte := 'ochenta';
    90 : convierte := 'noventa';
    100 : convierte := 'cien';
    500 : convierte := 'quinientos';
    700 : convierte := 'setecientos';
    900 : convierte := 'novecientos';
  End;
End;
 
Function TNumWordsEspanol.NumberInWords (TheNumber : Integer; Gender : TGender) : String;
// Note the new parameter, Gender (genMale, genFemale, or genNeuter)
Var
  N, {erro,} unidades, Dec, cent, {salva,} miles, decmil, centmil, mill, aux : LongInt;
  cad, cad2 : String;
Begin
  If TheNumber < 0 Then Raise EConvertError.Create ('NumWords - Debe Ser un Número Positivo!!');
  If TheNumber > 999999999 Then Raise EConvertError.Create ('NumWords - Lo siento, Esto es solo un entero ...');
  // if n>999999999999 then showmessage('Debe ser un número menor a un billón')
  // else
  N := TheNumber;
  Begin
    // If we comment out the use of N that doesn't get used down there we get Hint: Value assigned to 'salva' never used
    // salva:=N;
    aux := N Div 1000000;
    mill := aux;
    n := n Mod 1000000;
    aux := n Div 100000;
    centmil := aux;
    n := n Mod 100000;
    aux := n Div 10000;
    decmil := aux;
    n := n Mod 10000;
    aux := n Div 1000;
    miles := aux;
    n := n Mod 1000;
    aux := n Div 100;
    cent := aux;
    n := n Mod 100;
    aux := n Div 10;
    Dec := aux;
    n := n Mod 10;
    aux := n;
    unidades := aux;
    cad := '';
    If mill > 0 Then
      If mill = 1 Then cad := 'un millon ' Else Begin
        n := mill;
        cad := NumberInWords (N, Gender) + ' millones ';
      End;
    // n:=salva; Hint: Value assigned to 'N' never used, Andy Preston
    {empieza la conversión de las centenas de miles}
    cad2 := '';
    Case centmil Of
      1 : If (miles = 0) And (decmil = 0) Then cad2 := convierte (100) Else cad2 := 'ciento ';
      2 : cad2 := convierte (2) + 'cientos ';
      3 : cad2 := convierte (3) + 'cientos ';
      4 : cad2 := convierte (4) + 'cientos ';
      5 : cad2 := convierte (500) + ' ';
      6 : cad2 := convierte (6) + 'cientos ';
      7 : cad2 := convierte (700) + ' ';
      8 : cad2 := convierte (8) + 'cientos ';
      9 : cad2 := convierte (900) + ' ';
    End;
    cad := cad + cad2;
    {Termina la conversión de las centenas}
 
 
   {empieza la conversión de las decenas y unidades de miles}
    cad2 := '';
    Case decmil Of
      0 : If miles <> 1 Then cad2 := convierte (miles);
      1 : If miles <= 5 Then cad2 := convierte (decmil * 10 + miles)
        Else cad2 := 'dieci' + convierte (miles);
      2 : If miles = 0 Then cad2 := convierte (20)
        Else If miles = 1 Then cad2 := 'veintiun'
        Else cad2 := 'veinti' + convierte (miles);
      3 : If miles = 0 Then cad2 := convierte (30)
        Else If miles = 1 Then cad2 := 'treinta y un'
        Else cad2 := 'treinta y ' + convierte (miles);
      4 : If miles = 0 Then cad2 := convierte (40)
        Else If miles = 1 Then cad2 := 'cuarenta y un'
        Else cad2 := 'cuarenta y ' + convierte (miles);
      5 : If miles = 0 Then cad2 := convierte (50)
        Else If miles = 1 Then cad2 := 'cincuenta y un'
        Else cad2 := 'cincuenta y ' + convierte (miles);
      6 : If miles = 0 Then cad2 := convierte (60)
        Else If miles = 1 Then cad2 := 'sesenta y un'
        Else cad2 := 'sesenta y ' + convierte (miles);
      7 : If miles = 0 Then cad2 := convierte (70)
        Else If miles = 1 Then cad2 := 'setenta y un'
        Else cad2 := 'setenta y ' + convierte (miles);
      8 : If miles = 0 Then cad2 := convierte (80)
        Else If miles = 1 Then cad2 := 'ochenta y un'
        Else cad2 := 'ochenta y ' + convierte (miles);
      9 : If miles = 0 Then cad2 := convierte (90)
        Else If miles = 1 Then cad2 := 'noventa y un'
        Else cad2 := 'noventa y ' + convierte (miles);
    End;
    If (miles > 0) Or (decmil > 0) Or (centmil > 0) Then cad2 := cad2 + ' mil ';
    cad := cad + cad2;
    {termina la conversión de las decenas y unidades de miles}
 
 {empieza la conversión de las centenas}
    cad2 := '';
    Case cent Of
      1 : If (unidades = 0) And (Dec = 0) Then cad2 := convierte (100) Else cad2 := 'ciento ';
      2 : cad2 := convierte (2) + 'cientos ';
      3 : cad2 := convierte (3) + 'cientos ';
      4 : cad2 := convierte (4) + 'cientos ';
      5 : cad2 := convierte (500) + ' ';
      6 : cad2 := convierte (6) + 'cientos ';
      7 : cad2 := convierte (700) + ' ';
      8 : cad2 := convierte (8) + 'cientos ';
      9 : cad2 := convierte (900) + ' ';
    End;
    cad := cad + cad2;
    {Termina la conversión de las centenas}
 
   {empieza la conversión de las decenas y unidades}
    cad2 := '';
    Case Dec Of
      0 : cad2 := convierte (unidades);
      1 : If unidades <= 5 Then cad2 := convierte (Dec * 10 + unidades)
        Else cad2 := 'dieci' + convierte (unidades);
      2 : If unidades = 0 Then cad2 := convierte (20)
        Else cad2 := 'veinti' + convierte (unidades);
      3 : If unidades = 0 Then cad2 := convierte (30)
        Else cad2 := 'treinta y ' + convierte (unidades);
      4 : If unidades = 0 Then cad2 := convierte (40)
        Else cad2 := 'cuarenta y ' + convierte (unidades);
      5 : If unidades = 0 Then cad2 := convierte (50)
        Else cad2 := 'cincuenta y ' + convierte (unidades);
      6 : If unidades = 0 Then cad2 := convierte (60)
        Else cad2 := 'sesenta y ' + convierte (unidades);
      7 : If unidades = 0 Then cad2 := convierte (70)
        Else cad2 := 'setenta y ' + convierte (unidades);
      8 : If unidades = 0 Then cad2 := convierte (80)
        Else cad2 := 'ochenta y ' + convierte (unidades);
      9 : If unidades = 0 Then cad2 := convierte (90)
        Else cad2 := 'noventa y ' + convierte (unidades);
    End;
    cad := cad + cad2;
    {termina la conversión de las decenas y unidades}
    If cad <> '' Then Result := cad Else Result := 'Cero';
  End;
End;
 
Function TNumWordsEspanol.IMoneyInWords (Major, Minor : Integer; EuroMode : Boolean) : String;
Begin
  Result := 'Currency support not yet included';
End;
 
End.

Saludos

Edited by cram, 04 July 2015 - 05:07 PM.

[Dragonlair]

No, me basé en la función que convierte de entero a romano como 2010 -> "MMX", forma parte de la LasarusComponentLibrary, lo requería para entregar un trabajo y no encontraba librerías adecuadas o que funcionaran correctamente.

delphi

function intToRoman(Value: Longint): string;
 
const
  Arabics : Array[1..13] of Integer
          = (1,4,5,9,10,40,50,90,100,400,500,900,1000);
  Romans  :  Array[1..13] of String
          = ('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
 
var
  i: Integer;
 
begin
  Result:='';
  for i:=13 downto 1 do
    while (Value >= Arabics[i]) do
      begin
        Value:=Value-Arabics[i];
        Result:=Result+Romans[i];
      end;
end;

Por cierto mi código también solo llega a 999,999,999.99 y el formato de salida está en español de México pero es fácilmente modificable.

[escafandra]

He experimentado un poco y he obtenido un código algo chapucero y poco optimizado. El resultado es que convierte en menos de 80 líneas hasta el cuatrillón, en concreto hasta el número 999.999.999.999.999 y con menos fuerza bruta que el algoritmo de de Presotn y Trujillo.

Trata de ser fiel a la ortografía pero tiene algunos defectos, no pone acentos, aunque todo es mejorable.


Saludos.

Attached Files

•  Trillones.png   69.81KB   4 downloads

[cram]

He experimentado un poco y he obtenido un código algo chapucero y poco optimizado. El resultado es que convierte en menos de 80 líneas hasta el cuatrillón, en concreto hasta el número 999.999.999.999.999 y con menos fuerza bruta que el algoritmo de de Presotn y Trujillo.

Trata de ser fiel a la ortografía pero tiene algunos defectos, no pone acentos, aunque todo es mejorable.


Saludos.

Me parece excelente, ya que de poder llegar al cuatrillón ya es mucho. ¿pero está en Delphi o en C++?
Hay todo un tema con este asunto de los nombres luego del millón y se supone que los hispanohablantes podemos nombrar cifras de hasta nonillones, mientras que en otras lenguas no le dan importancia a los números sobre los mil millardos. Por ejemplo en inglés, griego y portugués, le llaman "billones" a los "mil millones" (claro que en sus respectivas lenguas.

Yo, por mi parte, dado el tremendo aporte de Dragonlair me puse a jugar con mi código, ahora veo que Escafandra también llegó por debajo de las cien líneas y estoy seguro que al optimizar el código llegará a disminuirl más aún. Por lo que les comento que alcancé las setenta (en realidad 69 ) líneas como Dragonlair, con una limitación de doce cifras, que con el agregado de algunas líneas puede permitir hasta unas tres veces más, ya que no se trata de un algoritmo de fuerza bruta para nada.

No podía pasar por debajo de las cien debido a que mi código era modular y se separaba en tres partes. Uní estas partes en un único proceso y alcancé llegar debajo de las setenta. Siempre -aclaro- con if, then y else en diferentes líneas y salto de lína cuando se exceden las 100 columnas, y obviamente contando unit, interface, implementation, sus espacios intermedios, etc. Si se dejaran las líneas sin cortar y se levantaran los then junto con el if, dejando los else debajo, el código baja a cincuenta y cinco (55).

Estoy seguro que en algún momento alguien lo supera.

A los que les interesa el desafío, les dejo el enlace a esta excelente página para ver como se pone nombre a los números: http://tip.dis.ulpgc.es/
Además tiene otros procesos como separación silábica (le encontré un error que mi algoritmo no comete ), etc.

Saludos

[escafandra]

Me parece excelente, ya que de poder llegar al cuatrillón ya es mucho. ¿pero está en Delphi o en C++?
Hay todo un tema con este asunto de los nombres luego del millón y se supone que los hispanohablantes podemos nombrar cifras de hasta nonillones, mientras que en otras lenguas no le dan importancia a los números sobre los mil millardos. Por ejemplo en inglés, griego y portugués, le llaman "billones" a los "mil millones" (claro que en sus respectivas lenguas.

Pues lo escribí en delphi, en C me hubiera resultado más sencillo.

En el asunto del billón, lo hago como los anglosajones, mil millones, quizás debería cambiarlo al modo un millón de millones para ser coherente la cultura. Dejemos que la cifra máxima la dejé en 999.999.999.999.999 por un problema de tipos numéricos.

 

El tema de las separaciones entre palabras lo hice según este enlace de reglas ortográficas,

 

Otro tema es el tratamiento de números decimales, que no contemplo.

 

 

Saludos.

[egostar]

Pues lo escribí en delphi, en C me hubiera resultado más sencillo.

         
 

Otro tema es el tratamiento de números decimales, que no contemplo.

 

El tema de los decimales acá en México es bastante simple. Solo hay que incluir un texto que dice " XX/100 M.N." donde XX son los centavos 00-99

 

Saludos

[escafandra]

El tema de los decimales acá en México es bastante simple. Solo hay que incluir un texto que dice " XX/100 M.N." donde XX son los centavos 00-99

Si aplicamos las mismas reglas ortográficas descritas aquí los decimales se tratarían igual que la parte entera, pero perderíamos el límite alto, de nuevo por el problema de tipos numéricos.

 

 

Saludos.

[Dragonlair]

Que hay de nuevo colegas, aquí reportando unas optimizaciones que me tomé la molestia de realizar hoy a mi código,
después de optimizarlo eliminando variables y factorizando código pude bajar drásticamente la cantidad de lineas.
Creo que es necesario que establezcamos los lineamientos de la participación, por ejemplo si es necesario el salto de linea cada tantas columnas, y hasta que numero es necesario hacer la conversión.

 

por ahora mi código lo pude reducir a 34 lineas. Utilicé la función IfThen para emular el operador ternario de c++ y ahorrar 6 lineas de código, así como que estoy contando sentencias, es decir, no hago saltos de linea cada tantas columnas, además que el algoritmo sólo sigue traduciendo hasta un máximo de 999,999,999.99 y el formato de salida es en español de México.

 

Saludos desde un lugar en Zacatecas México...

 

Otra cosa la unidad ya terminada cuenta 58 lineas con saltos de linea y formateada correctamente con JediCodeFormat CTRL+D en lazarus, en este si se realizan saltos de linea para que haya lineas largas. además que como unidad ya posee sus secciones de interface, implementación, usos, etc.

Pero supongo que deberíamos contar solo las lineas efectivas, en mi caso 34 lineas desde la declaración de la función, su begin y end;

Attached Files

•  project1.png   46.25KB   4 downloads