Ver Tema

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:

Syntax: [ Download ] [ Hide ]

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.

Solución en Código Java:

Syntax: [ Download ] [ Hide ]

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("") );
}
 

explorer · 2012-01-14 10:33 @481

Bienvenido a los foros de Perl en español, toxperl.

Este problema es tan sencillo de resolver para Perl, que ni siquiera es necesario escribir un programa.

Se puede resolver en una sola línea, desde la misma línea de órdenes:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

explorer@casa:~/> perl -le '$_=shift; $t=0; while (/1/) {$t += substr($_, $y = index($_,1), rindex($_,1) - $y + 1) =~ tr/01/10/ }; print $t' 1001110001
21

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

toxperl · 2012-01-14 10:39 @485

Muchas gracias por tu respuesta..

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.

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...

creating021 · 2012-01-14 15:47 @699

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

while ($bits =~ /1/){...}

Te recomiendo leer este tutorial.

Publicidad

Socializa