Foro - Perl en Español

por **toxperl** » 2012-01-14 09:32 @439

Estimada comunidad, necesito su ayuda urgente para una tarea de la universidad, es vital que la realice para aprobar el ramo. El ejercicio es el siguiente:

Ya lo hice en Java... pero quería el equivalente en Perl... Por favor, si alguien me puede ayudar.

Adjunto el código en Java y también unos ejemplos de cómo es la lógica de reemplazo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Example 1:

bits = "00110".

By flipping bits 3-4, we get "00000". Method returns 2.

Example 2:

bits = "10110"

If we flip bits 1-4, we get "01000". Now we flip bit 2 and get "00000".

Method returns 4 + 1 = 5.

Example 3:

bits = "1001110001"

Flipping bits 1-10 yields "0110001110"

Now, flipping bits 2-9 yields "0001110000"

Again, flipping bits 4-6 yields "0000000000"

Method returns 10 + 8 + 3 = 21.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Solución en Código Java:

Sintáxis: [ Descargar ] [ Ocultar ]

Using java Syntax Highlighting

public class BitFlipper {
 
    public int minFlip( String bits ) {
        int flip = 0;
        while ( !"".equals(bits) ) {
            bits = bits.replaceAll( "^[0]*", "" );
            bits = bits.replaceAll( "[0]*$", "" );
            flip += bits.length();
            StringBuffer sb = new StringBuffer();
            for ( int i = 0; i < bits.length(); i++ ) {
                String cur = bits.substring( i, i + 1 );
                if ( "0".equals(cur) ) {
                    sb.append("1");
                }
                else {
                    sb.append("0");
                }
            }
            bits = sb.toString();
        }
        return flip;
    }
}
 
public static void main( String [] args ) {
    BitFlipper bf = new BitFlipper();
    System.out.println( bf.minFlip("00110") );
    System.out.println( bf.minFlip("10110") );
    System.out.println( bf.minFlip("1001110001") );
    System.out.println( bf.minFlip("10001") );
    System.out.println( bf.minFlip("101010101") );
    System.out.println( bf.minFlip("") );
}
 
Coloreado en 0.013 segundos,  usando GeSHi 1.0.8.4

Lo que hacemos es un bucle sin fin mientras exista algún '1' en la cadena que pasamos como argumento. Luego buscamos por esos '1' por el principio de la cadena con index(), y por el final con rindex(). Extraemos la subcadena con substr() y se la pasamos a tr///, que es el que hace la transliteración de 0 a 1 y viceversa, devolviendo además el número de veces que lo hace, número que agregamos al contador $t, valor que sacamos al final como resultado del proceso.

Vamos, exactamente lo mismo que lo que hace el código en Java que has publicado... pero con menos líneas

por **toxperl** » 2012-01-14 10:39 @485

Muchas gracias por tu respuesta..

por **explorer** » 2012-01-14 11:04 @503

¿Pero qué clase de Universidad es esa que te hace preguntas de programación sino eres programador?

Se supone que para resolver estos problemas, debes haber recibido unas clases de programación.

Así aprendimos todos.

por **toxperl** » 2012-01-14 11:08 @505

Una no muy buena parece

Lo mismo decimos nosotros y reclamamos, el asunto es que tengo que hacer este ejercicio en dos lenguajes, Java y Perl, y en Perl se me pedía crear una función que obtenga el valor de cambios de 1 por 0 y viceversa...

por **creating021** » 2012-01-14 15:47 @699

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while ($bits =~ /1/){...}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Te recomiendo leer este tutorial.

Foro - Perl en Español

De Java a Perl: cambiar los 1 por 0

De Java a Perl: cambiar los 1 por 0

Publicidad

Re: De Java a Perl: cambiar los 1 por 0

Re: De Java a Perl: cambiar los 1 por 0

Re: De Java a Perl: cambiar los 1 por 0

Re: De Java a Perl: cambiar los 1 por 0

Re: Ayuda con el while

¿Quién está conectado?