Desafío de programación de agosto 2009: Dale un bash!

  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 5th, 2009, 5:42 am

Eso suena como una buena! Trabajará con el reto normas y colocarlo. Gracias Joe!
Watch me grow
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Agosto 5th, 2009, 5:42 am

  • UPSGuy
  • Lurker ಠ_ಠ
  • Web Master
  • Avatar de Usuario
  • Registrado: Jul 25, 2005
  • Mensajes: 2735
  • Loc: Nashville, TN
  • Status: Offline

Nota Agosto 5th, 2009, 6:06 am

Ya tienes unas cuantas buenas ideas con este, pero creo que esperar malos en las reglas oficiales para asegurarse de que Im que no desperdiciar esfuerzos. :D
I'd love to change the world, but they won't give me the source code.
  • George L.
  • Bronze Member
  • Bronze Member
  • No Avatar
  • Registrado: Nov 05, 2007
  • Mensajes: 2206
  • Loc: Malaysia
  • Status: Offline

Nota Agosto 19th, 2009, 7:14 am

UPSGuy escribió:
Batter Up!

Perl:
Código: [ Select ]
 
sub convert {
     $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
}
 
  1.  
  2. sub convert {
  3.      $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
  4. }
  5.  

Hola UPSGuy, puede escribir el código completo? este es un noob verdadera cuestión que sé, lo siento chicos. Estoy seguro de que tenemos que escribir la cadena "8cdb2408-81e3-4b8c-9ba2-916c14927946" en algún lugar de su código? Gracias.
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 19th, 2009, 7:29 am

Estoy bajo la impresión de que la cadena sería un parámetro cuando se llama a la sub convertir
Watch me grow
  • George L.
  • Bronze Member
  • Bronze Member
  • No Avatar
  • Registrado: Nov 05, 2007
  • Mensajes: 2206
  • Loc: Malaysia
  • Status: Offline

Nota Agosto 19th, 2009, 7:51 am

No estoy seguro de qué es lo que quieres decir, perro rabioso ..
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 19th, 2009, 7:56 am

Código: [ Select ]
convert "8cdb2408-81e3-4b8c-9ba2-916c14927946"
Watch me grow
  • George L.
  • Bronze Member
  • Bronze Member
  • No Avatar
  • Registrado: Nov 05, 2007
  • Mensajes: 2206
  • Loc: Malaysia
  • Status: Offline

Nota Agosto 19th, 2009, 8:37 am

Está escrito antes o después de la sub convertir?

Intentado tanto, no trabajo ..
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Agosto 19th, 2009, 9:25 am

http://www.webreference.com/programming ... broutines/
Watch me grow
  • IcyDragoon
  • Student
  • Student
  • No Avatar
  • Registrado: Mar 12, 2008
  • Mensajes: 65
  • Status: Offline

Nota Agosto 21st, 2009, 1:37 am

Soy una persona de C + +, xD

CPP Código: [ Select ]
string guid2Str(string GUID){
    string result;
    for(int i = 0; i < GUID.size(); ++i)
        if(GUID[i] == '-')
            result += '-';
        else
            result += (GUID[i] < 58)?static_cast<char>(GUID[i]+20):static_cast<char>(GUID[i]-19);
    return result;
}
  1. string guid2Str(string GUID){
  2.     string result;
  3.     for(int i = 0; i < GUID.size(); ++i)
  4.         if(GUID[i] == '-')
  5.             result += '-';
  6.         else
  7.             result += (GUID[i] < 58)?static_cast<char>(GUID[i]+20):static_cast<char>(GUID[i]-19);
  8.     return result;
  9. }
  • IcyDragoon
  • Student
  • Student
  • No Avatar
  • Registrado: Mar 12, 2008
  • Mensajes: 65
  • Status: Offline

Nota Agosto 21st, 2009, 2:15 am

otro.... en C + +

CPP Código: [ Select ]
string guid2Str2(string GUID){
    string result;
    char ch[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    for(int i = 0; i < GUID.size(); ++i)
        if(GUID[i] == '-')
            result += '-';
        else
            result += (GUID[i] > '9')?ch[GUID[i]-84]:ch[GUID[i]-45];
    return result;
}
  1. string guid2Str2(string GUID){
  2.     string result;
  3.     char ch[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  4.     for(int i = 0; i < GUID.size(); ++i)
  5.         if(GUID[i] == '-')
  6.             result += '-';
  7.         else
  8.             result += (GUID[i] > '9')?ch[GUID[i]-84]:ch[GUID[i]-45];
  9.     return result;
  10. }


hmmm...Supongo que mi 2 soluciones son básicamente los mismos.
  • UPSGuy
  • Lurker ಠ_ಠ
  • Web Master
  • Avatar de Usuario
  • Registrado: Jul 25, 2005
  • Mensajes: 2735
  • Loc: Nashville, TN
  • Status: Offline

Nota Agosto 21st, 2009, 6:23 am

Hey, George, lo siento por el retraso. Algo así es lo que quieres. He añadido la "entrada" y "espera" línea como yo estaba trabajando en el guión. Me ayudó a saber cuando lo tengo.

PERL Código: [ Select ]
 
#!/usr/bin/perl -w
 
use strict;
 
my $sIn = '8cdb2408-81e3-4b8c-9ba2-916c14927946';
print "input:   $sIn\n";
print "expected: LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ\n";
print "output:  ".convert($sIn)."\n";
sub convert {
     $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
}
 
# EXECUTE COMMAND:
# ./challenge1.pl
#
# OUTPUT:
# input:    8cdb2408-81e3-4b8c-9ba2-916c14927946
# expected: LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ
# output:   LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ
 
  1.  
  2. #!/usr/bin/perl -w
  3.  
  4. use strict;
  5.  
  6. my $sIn = '8cdb2408-81e3-4b8c-9ba2-916c14927946';
  7. print "input:   $sIn\n";
  8. print "expected: LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ\n";
  9. print "output:  ".convert($sIn)."\n";
  10. sub convert {
  11.      $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
  12. }
  13.  
  14. # EXECUTE COMMAND:
  15. # ./challenge1.pl
  16. #
  17. # OUTPUT:
  18. # input:    8cdb2408-81e3-4b8c-9ba2-916c14927946
  19. # expected: LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ
  20. # output:   LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ
  21.  


Alternativamente, usted podría tener el script de tomar la entrada como un parámetro, como este:

PERL Código: [ Select ]
 
#!/usr/bin/perl -w
 
use strict;
 
my $sIn;
 
if(defined($ARGV[0])) {
    $sIn = $ARGV[0];
} else {
    print "Please provide the string to convert as the first parameter.\nExample: ./challenge1.pl 8cdb2408-81e3-4b8c-9ba2-916c1492794\n";
    exit(0);
}
 
print "output:  ".convert($sIn)."\n";
 
sub convert {
     $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
}
 
# EXECUTE COMMAND:
# ./challenge1.pl 8cdb2408-81e3-4b8c-9ba2-916c14927946
#
# OUTPUT:
# output:  LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ 
 
  1.  
  2. #!/usr/bin/perl -w
  3.  
  4. use strict;
  5.  
  6. my $sIn;
  7.  
  8. if(defined($ARGV[0])) {
  9.     $sIn = $ARGV[0];
  10. } else {
  11.     print "Please provide the string to convert as the first parameter.\nExample: ./challenge1.pl 8cdb2408-81e3-4b8c-9ba2-916c1492794\n";
  12.     exit(0);
  13. }
  14.  
  15. print "output:  ".convert($sIn)."\n";
  16.  
  17. sub convert {
  18.      $_[0] =~ s/([a-z]|[0-9])/((ord()%39)>18)?uc(chr(ord()+13)):uc(chr(ord()+52))/eg && return $_[0];
  19. }
  20.  
  21. # EXECUTE COMMAND:
  22. # ./challenge1.pl 8cdb2408-81e3-4b8c-9ba2-916c14927946
  23. #
  24. # OUTPUT:
  25. # output:  LPQOFHDL-LERG-HOLP-MONF-MEJPEHMFKMHJ 
  26.  


Siempre hay más de una forma de hacer algo en perl, pero estos son buenos ejemplos de arranque. Traté de no más de simplificar o ofuscar el código.
I'd love to change the world, but they won't give me the source code.
  • George L.
  • Bronze Member
  • Bronze Member
  • No Avatar
  • Registrado: Nov 05, 2007
  • Mensajes: 2206
  • Loc: Malaysia
  • Status: Offline

Nota Agosto 21st, 2009, 10:46 am

UPSGuy, Muchas gracias llego tarde a mí mismo - leer este mensaje.
  • UPSGuy
  • Lurker ಠ_ಠ
  • Web Master
  • Avatar de Usuario
  • Registrado: Jul 25, 2005
  • Mensajes: 2735
  • Loc: Nashville, TN
  • Status: Offline

Nota Septiembre 4th, 2009, 5:23 am

Fueron en el mes de septiembre, ¿qué decir a todos ustedes a este ajuste y pasar a otra?
I'd love to change the world, but they won't give me the source code.
  • alex89
  • Bronze Member
  • Bronze Member
  • Avatar de Usuario
  • Registrado: Jul 18, 2008
  • Mensajes: 239
  • Loc: Western Australia
  • Status: Offline

Nota Octubre 1st, 2009, 7:13 am

Tienen un código muy rápido y lo feo:

(Im actualmente aprendizaje matrices en java, theyre increíble)

JAVA Código: [ Select ]
    public String sampleMethod(String input)
    {
        String output = "";
        String[] parts = input.split("-");
        char[][] moreparts = new char[parts.length][0];
       
        for (int i = 0; i<parts.length; i++){
            moreparts[i] = parts[i].toCharArray();
           
            for(int j = 0; j<moreparts[i].length; j++){
               
                output += (char) (Integer.parseInt(moreparts[i][j]+"",16)  +68 );
           
            }
           
            if(i < parts.length - 1) output += "-";
        }
       
        return output;
    }
  1.     public String sampleMethod(String input)
  2.     {
  3.         String output = "";
  4.         String[] parts = input.split("-");
  5.         char[][] moreparts = new char[parts.length][0];
  6.        
  7.         for (int i = 0; i<parts.length; i++){
  8.             moreparts[i] = parts[i].toCharArray();
  9.            
  10.             for(int j = 0; j<moreparts[i].length; j++){
  11.                
  12.                 output += (char) (Integer.parseInt(moreparts[i][j]+"",16)  +68 );
  13.            
  14.             }
  15.            
  16.             if(i < parts.length - 1) output += "-";
  17.         }
  18.        
  19.         return output;
  20.     }
  • Rabid Dog
  • Web Master
  • Web Master
  • Avatar de Usuario
  • Registrado: May 21, 2004
  • Mensajes: 3229
  • Loc: South Africa
  • Status: Offline

Nota Octubre 1st, 2009, 1:46 pm

Agradable! Estoy trabajando en un nuevo challenege muchachos, solo tengan paciencia conmigo :)
Watch me grow
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Octubre 1st, 2009, 1:46 pm

Publicar Información

  • Total de mensajes en este tema: 50 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 153 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC