MV Coders on fire

Khanser #31 Abr '12 :psyduck:

#30 Si tiene compilador o intérprete, es apto para usarse ya sea php, java, c, lisp, haskell o lo que sea xD

Khanser #32 Abr '12 :psyduck:

Bueno, pues damos por concluida la ronda de votaciones teniendo como ganador al kata de Números Romanos.

El programa a realizar debe admitir como parámetro de entrada un número entero positivo mayor que 0 y menor que 4000. Los romanos tenian como regla no repetir más de 3 veces seguidas un símbolo numérico, por lo que no se puede poner MMMM para el 4000, así que no se puede poner.

Se usarán los símbolos siguientes:

I -> 1
V -> 5
X -> 10
L -> 50
C -> 100
D -> 500
M -> 1000

Reglas:

Se pueden repetir hasta un máximo de 3 veces seguidas los símbolos I, X, C y M
No se pueden repetir los símbolos V,L,D
Elementos de sustracción I -> V,X | X -> L,C | C -> D,M
No pueden sustraer de los símbolos V, L y D

Más adelante sacaremos los juegos de prueba.

1 respuesta

Merkury #33 Abr '12

#32 Una cosa, haciéndolo en una web ¿podemos utilizar Jquery?

1 respuesta

EnZo #34 Abr '12

#33 Para que quieres usar JQuery? Para la UI?

1 respuesta

Merkury #35 Abr '12

#34 Con Jquery se pueden hacer mas cosas que la UI eh

1 respuesta

EnZo #36 Abr '12

#35 Lo sé. Pero no entiendo que sentido tiene usar jquery para realizar ese kata. Cuando con javascript nativo puedes hacerlo. Y ya se que todo lo que hagas con jquery puedes hacerlo con js nativo. Pero te ahorra mucho tiempo manejando el dom de un documento. Pero para este caso no se que utilidad le vas a dar...

1 respuesta

Merkury #37 Abr '12

#36 Pues basicamente que me gusta mas jquery que Javascript sin mas XD

2 respuestas

EnZo #38 Abr '12

#37 Ok ok xD. Pero no vas a usar mucho jquery en realidad. Quizá para obtener los datos de entrada mediante un form y representarlos luego, pero poco más. Lo demás será todo js nativo.
Si me hubieses dicho mootools que su core extiende el objeto String y el Number pues no habria preguntao...

1 respuesta

Merkury #39 Abr '12

#38 Ya pero mootools no me acabo de apañar XD

B

[Borrado] #40 Abr '12

Si el código es guarro pero funciona, pasa algo? Aquí el menda es el rey de las chapuzas...

1 respuesta

Merkury #41 Abr '12

#40 La cosa es que sea legible que luego los compartiremos.

#42

1 respuesta

GreyShock #42 Abr '12

#37 Yo te entiendo, yo uso jQuery hasta para ir al baño xD Es un error de optimización, pero es que es taaaan bonito y tan cómodo que no concibo la vida JS sin él xD

1 1 respuesta

elkaoD #43 Abr '12

¿Se puede postear ya? Implementado en Common LISP en 5 min, pero no sé si postearlo por no spoilear a otros karatekas.

B

[Borrado] #44 Abr '12

#41 hombre, legible es, pero no es ni elegante ni fino ni nada de eso...

B

[Borrado] #45 Abr '12

Yo lo tengo ya, creo que funciona bien aunque no me he puesto a probarlo muy a fondo.

Estoy oxidadísimo en C así que es posible que haya hecho alguna burrada :\

#46: A mí me parece molón porque usas algo que desconozco, y eso siempre mola xDD. A ver si me animo a hacerlo en Erlang, que estoy aprendiendo.

EDIT: https://github.com/SantiMunin/MV-Coders-on-fire/tree/master/1_decimal_to_roman

Aquí podéis verlo en C y en Erlang

2 respuestas

elkaoD #46 Abr '12

#45 ok entonces posteo yo también.

Recomiendo no ver el código si aún no habéis hecho la kata porque es un spoiler total y me gustaría ver las implementaciones del resto. No sé si hay otra forma de hacerlo en realidad (no he buscado nunca la "solución" ), pero esta la pensé hace mucho tiempo y me parece de lo más simple. La gente se suele complicar mucho cuando es facilísimo.

A lo mejor a alguien le parece cutre que no use tabla de símbolos a lo #45 pero... paso xD A lo mejor luego edito con tabla de símbolos.

Common LISP

(defun romanos (numero)
  (romanos-r numero NIL))

(defun romanos-r (numero cadena)
  (cond
    ((> numero 4000) (error "ERROR: numero > 4000"))
    ((< numero 0) (error "ERROR: numero < 0"))
    ((>= numero 1000) (romanos-r (- numero 1000) (cons 'M cadena)))
    ((>= numero 900) (romanos-r (- numero 900) (append '(M C) cadena)))
    ((>= numero 500) (romanos-r (- numero 500) (cons 'D cadena)))
    ((>= numero 400) (romanos-r (- numero 400) (append '(D C) cadena)))
    ((>= numero 100) (romanos-r (- numero 100) (cons 'C cadena)))
    ((>= numero 90) (romanos-r (- numero 90) (append '(C X) cadena)))
    ((>= numero 50) (romanos-r (- numero 50) (cons 'L cadena)))
    ((>= numero 40) (romanos-r (- numero 40) (append '(L X) cadena)))
    ((>= numero 10) (romanos-r (- numero 10) (cons 'X cadena)))
    ((>= numero 9) (romanos-r (- numero 9) (append '(X I) cadena)))
    ((>= numero 5) (romanos-r (- numero 5) (cons 'V cadena)))
    ((>= numero 4) (romanos-r (- numero 4) (append '(V I) cadena)))
    ((>= numero 1) (romanos-r (- numero 1) (cons 'I cadena)))
    (T (reverse cadena))))

Ej. uso:
(romanos 1923)
Salida.
(M C M X X I I I)

EDIT: Venga va, como era obvio al final me he picado y lo he hecho con tabla de símbolos.

Common LISP con tabla

(defun romanos (numero)
  (cond
    ((> numero 4000) (error "ERROR: numero > 4000"))
    ((< numero 0) (error "ERROR: numero < 0"))
    (T (romanos-r numero NIL
        '((1000 (M)) (900 (C M)) (500 (D)) (400 (C D)) (100 (C)) (90 (X C)) (50 (L)) (40 (X L)) (10 (X)) (9 (I X)) (5 (V)) (4 (I V)) (1 (I)))))))

(defun busca-en-tabla (numero tabla)
  (if tabla (if (>= numero (first (first tabla)))
      (first tabla)
      (busca-en-tabla numero (rest tabla)))))

(defun romanos-r (numero cadena tabla)
  (let ((simbolo (busca-en-tabla numero tabla)))
    (if simbolo
      (romanos-r
        (- numero (first simbolo))
        (append cadena (second simbolo)) tabla)
      cadena)))

3 respuestas

EnZo #47 Abr '12

#46 Me cuesta infinito entender tu algoritmo

1 respuesta

elkaoD #48 Abr '12

#47 supongo que no entiendes LISP o no entiendes la recursividad. Es más fácil de lo que parece. Te explico el algoritmo sin tabla:

spoiler

La función importante es romanos-r, la otra no es más que un punto de entrada simple a la recursión (porque hay que pasarle NIL a la cadena en la primera llamada, sólo eso.) El principio es obvio: si el número > 4000 o < 0, error.

Luego con cond compruebas las condiciones de la izquierda y, si son ciertas, se ejecuta lo de la derecha. ¡OJO! Esto es importante: las condiciones son excluyentes (if-elseif-elseif-elseif..else.)

En cuanto encuentra una condición cierta se llama a sí misma, sólo que pasándole el número que le queda por "traducir" (es decir, si hemos encontrado >1000, le resta mil) y le pasa como argumento cadena lo que ya lleva construído de cadena, es decir, el símbolo adecuado que acaba de encontrar, concatenado con lo que ya llevaba de cadena.

Cuando no encuentra ninguna cierta (caso base de la recursión) simplemente pilla la cadena que se ha construído hasta el momento y le da la vuelta con reverse. Esto lo hago para no abusar de append y tirar de cons cuando sea posible (sólo uso append cuando quiero appendar una lista, cons cuando quiero meter un sólo elemento.) Meto el único elemento en la cabeza de la lista y al final de la recursión le doy la vuelta a todo y fin (por eso 9 appendea "XI" y no "IX" que es lo correcto.)

Ejemplo de ejecución para 129 (estilo C, por si no sabes LISP)

romanos-r(129,"")
| romanos-r(29,"C")
| | romanos-r(19,"XC")
| | | romanos-r(9,"XXC")
| | | | romanos-r(0,"XIXXC") // CASO BASE, llama a reverse sobre su argumento
| | | | return "XIXXC".reverse()
| | | return "CXXIX"
| | return "CXXIX"
| return "CXXIX"
return "CXXIX"

Esto funciona sin hacer cosas raras para los casos como 9 (IX) precisamente porque las condiciones son excluyentes: si es mayor que 9 se aplica otra condición antes por lo que no se lía, y si es menor, no cae en el caso por lo que tira como debería normalmente.

Es de lo que estoy orgulloso de mi solución, que no hay que hacer cosas raras para esos casos "especiales". No sé si esta es la solución "oficial" (acabo de ver en Google que la peña lo resuelve usando tablas especiales para esos casos :S) pero a mí se me ocurrió solito cuando nos pusieron el problema en 1º de carrera.

El algoritmo con tabla es lo mismo, pero buscando en la tabla el símbolo correcto.

EDIT: Comprobando tu código #45 veo que también usas mi mismo concepto de no usar casos especiales (a la peña en mi clase se le iba mucho la cabeza tratando 9, 90, etc. xD), pero no entiendo muy bien por qué divides y no simplemente restas :S ¿Es por meter directamente X veces el mismo símbolo en lugar de en varios pasos? Por cierto, ojo con tu symbol, que debería ser [3] y no [2].

2 respuestas

B

[Borrado] #49 Abr '12

#48: Te refieres a la línea 47 o a la 56?

Si es por la 47, es para meter todos los simbolos del mismo tipo de una vez. Por ejemplo, si tengo 3500, pues meto 3 veces M y después me quedo con el resto de dividir entre 1000, que sería 500.

Lo del symbol por qué sería 3? Por la mierda está del "\0"? Qué puta mierda es C en temas de comodidad colega xDDD

Efectivamente se me pasó, como ya digo yo de C sé lo justo de utilizarlo en varias asignaturas, pero nunca lo he utilizado para hacer mis proyectos (que es donde más aprendo yo). De hecho mi idea es aprender herramientas con esto, no hacerlo con lo que ya domino.

Nucklear #50 Abr '12 BugHunter

Me voy a animar a hacer el reto en python, así practico un poco. Probablemente sea una guarrada lo que vaya a hacer no me peguéis xD

Khanser #51 Abr '12 :psyduck:

Yo lo he hecho en

java

package org.mv.romans;

public class RomanNumerals {

public enum Type{
	M(new String[]{"M","","",""}),
	C(new String[]{"C","D","M"}),
	X(new String[]{"X","L","C"}),
	I(new String[]{"I","V","X"});
	
	private String[] symbols;
	private Type(String[] s) {
		this.symbols = s;
	}
	
	public String[] getSymbols() {
		return symbols;
	}
}

public static void main(String[] args) {
	
	String stringNumber = "1923";
	Integer number = Integer.parseInt(stringNumber);
	if (!(number > 0) && !(number < 4000)) System.exit(1);
	
	String romanNumber = "";
	Type[] tArray = new Type[]{Type.M,Type.C,Type.X,Type.I};
	
	for(int i = 0;i < stringNumber.length(); i++){
		//char -> number
		number = ((int)stringNumber.toCharArray()[i])-((int)'0'); 
		romanNumber = romanNumber + toRoman(number,tArray[i]) ;
	}
	
	System.out.println(romanNumber);
}
public static String toRoman(Integer i,Type t){
	String result = "";
	if (i > 0){
		if (i <= 3){
			for(int p = 0; p < i && i < 4;p++){
				result += t.getSymbols()[0];
			}
		}else if (i > 3 && i < 9){
			result = t.getSymbols()[1];
			if (i == 4) result =  t.getSymbols()[0]+result;
			for(int p = 0; p< i && i > 5;p++){
				result = result+ t.getSymbols()[0];
			}
		}else{
			result +=  t.getSymbols()[0]+ t.getSymbols()[2];
		}
	}
	return result;
}
}

Todo straight code, nada de OO xD

eisenfaust #52 Abr '12

#46 Se ve que el corolario de Robert Morris se cumple xD

(defun int->roman (num) (format nil "~@r" num))

2 2 respuestas

Nucklear #53 Abr '12 BugHunter

Aqui va lo mio en python:

spoiler

#!/usr/bin/python
# -*- coding: utf-8 -*-

#Correspondencia de valores de números romanos a enteros
roman_num_values= (('M',  1000),
                   ('CM', 900),
                   ('D',  500),
                   ('CD', 400),
                   ('C',  100),
                   ('XC', 90),
                   ('L',  50),
                   ('XL', 40),
                   ('X',  10),
                   ('IX', 9),
                   ('V',  5),
                   ('IV', 4),
                   ('I',  1)) 

#Petición del número a convertir
def input():
    num = int(raw_input("Introduzca un numero mayor que 0 e inferior a 4000: "))
    if num <= 0:
        print "Input Error"
        input()
    elif num >= 4000:
        print "Input Error"
        input()
    return num
    

#Conversión del número a números romanos
def convert(num):
    '''Función para convertir de entero a romano'''
    result=''
    for rom, val in roman_num_values:
        while num >= val: 
            result += rom
            num -= val
    return result

print convert(input())

#55 ¿No? A mi en local me está funcionando. 0W y 0E en Eclipse y hace lo que quiero

1 respuesta

EnZo #54 Abr '12

#48 Mucho mas claro ahora Gracias por la aclaracion

Khanser #55 Abr '12 :psyduck:

Edit: #53 Mirándolo mejor, me he equivocado, parece que sí que funciona

2 respuestas

Nucklear #56 Abr '12 BugHunter

#55 Ok xD

LOc0 #57 Abr '12

PHP

<?php
	
function int2rom($n)
{
	if(is_int($n) && $n>0 && $n<4000)
	{
		$o=count(($r=array('M', 'CD', 'XL', 'IV')))-strlen($n);
		$s=NULL;
		
		foreach(str_split($n) as $p => $v)
		{
			$p+=$o;
			$s.=$v==5?$r[$p][1]:($v>5?($v==9?$r[$p][0].$r[$p-1][0]:$r[$p][1].str_pad('', $v-5, $r[$p][0])):($v==4?$r[$p][0].$r[$p][1]:str_pad('', $v, $r[$p][0])));
		}
	}

	return $s;
}

echo int2rom(3256);
?>

#58

PHP_no_hostil

<?php
	
function int2rom($numero)
{
	if(is_int($numero) && $numero>0 && $numero<4000)
	{
		$r=array('M', 'CD', 'XL', 'IV');
		$offset=count($r)-strlen($numero);
		$salida=NULL;
		
		foreach(str_split($numero) as $pos => $valor)
		{
			$pos+=$offset;
			
			if($valor==5)
				$salida.=$r[$pos][1];
			else if($valor>5)
			{
				if($valor==9)
					$salida.=$r[$pos][0].$r[$pos-1][0];
				else
					$salida.=$r[$pos][1].str_pad('', $valor-5, $r[$pos][0]);
			}
			else
			{
				if($valor==4)
					$salida.=$r[$pos][0].$r[$pos][1];
				else
					$salida.=str_pad('', $valor, $r[$pos][0]);
			}
		}
	}

	return $salida;
}

echo int2rom(3256);
?>

PHP_inverso

function rom2int($n)
{
	if(is_string($n))
	{
		$r='IVXLCDM';
		$s=0;
		
	foreach(str_split(strrev($n)) as $v)
	{
		$v=(($p=stripos($r, $v))&1?5:1)*pow(10, (int)($p/2));
		$s+=(!isset($a)?1:($v<$a?-1:1))*($a=$v);
	}
}

return $s;
}

Salu2

2 1 respuesta

Khanser #58 Abr '12 :psyduck:

#57 Profavó, arregla un poco el código para que se pueda leer por humanos

1 respuesta

elkaoD #59 Abr '12

#52 no me puedo creer que format formatée en números romanos Ni se me pasó por la cabeza.

Por cierto, ¿ves alguna cagada en mi código? Como novato en Lisp no sé si "sobrecomplico" las cosas. Nótese que he intentado ser recursivo antes que usar whiles y demás (prefiero funcional puro.)

PD: entendiste mal el corolario. El "including Common Lisp" no se refiere a añadir a "C or Fortran" si no a "program". O así lo interpreto yo.

1 respuesta

Gusete #60 Abr '12

#52 uhhhh... sexy!

Usuarios habituales

Tags