Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - fary

#691
Cita de: nicolas_hernandez en  5 Febrero 2014, 21:27 PM
Si te daras el trabajo de escribir , porfavor que sea un aporte , no lo hagas de ocioso :)

Que yo sepa eres tu el que necesita esto, te he orientado sobre como puedes hacerlo. Si quieres que haga tu trabajo págame y te lo hago sin ningún problema.
#692
@echo off
ping  www.google.es > nul
if errorlevel 1 (
    echo No conecta
) else (
    echo Conecta
)


El resto es cosa tuya...
#693
Menudo facha asqueroso >:(
#694
Para que no se vea la solución nada mas entrar al tema la pongo en pastebin.

http://pastebin.com/MmM9uUJY
#695
Cada letra tiene un valor, averigua el valor de las letras mediante un algoritmo.

MM +
AA +
DD
---
MAD
#696
Sería así:

Código (python) [Seleccionar]
re.match(":(.+?):",n) 

El mismo código en perl:

Código (perl) [Seleccionar]
use v5.16;

$_ = ":hola soy-una cadena : con : je";

/:(.+?):/;

say $1;
#697
Scripting / Re: Proyecto Batch- Cleverbot
12 Enero 2014, 17:52 PM
Hola, mi recomendación es que uses un lenguaje como Perl o Python para este tipo de cosas en vez de batch pero si estás interesado en hacerlo en batch mira información sobre for /f y delims.

un saludo.
#698
Scripting / Re: [RETO-EJERCICIO] Perl
11 Enero 2014, 12:22 PM
Cita de: engelx en 11 Enero 2014, 10:57 AM
resuelvelo tu primero por la via larga :P

no desconfío, solo quiero ver que lo sabes hacer, ya que no parece reto sino tarea XD

Bueno, si te empeñas, esta sería mi solución asi de primeras:

Código (perl) [Seleccionar]
#!/usr/bin/perl

use v5.16;

my @datos;
my $i = 0;
my $a;

while ($i<5)
{
print "Introduzca fila " . ($i+1) . ":";

my @temp = split(" ",<STDIN>);

for $a (0..4)
{
$datos[$i][$a] = $temp[$a];
}

$i++;
}

my (@fila,@columna);
my ($tmpfila,$tmpco);

for $i (0..4)
{
   for $a (0..4)
    {
       $tmpfila += $datos[$i][$a];  
        $tmpco += $datos[$a] [$i];
    }
    push (@fila,$tmpfila, " ");
    push (@columna,$tmpco, " ");

    $tmpco = $tmpfila = 0;
}

say "Totales filas: @fila";
say "Totales columnas; @columna";
#699
Scripting / [RETO-EJERCICIO] Perl
11 Enero 2014, 10:39 AM
El objetivo es sumar las filas y las columnas de una matriz (5x5) que será introducida por el usuario, ej.

   Introduzca fila 1: 2 5 3 4 5
   Introduzca fila 2: 2 6 8 4 5
   Introduzca fila 3: 9 8 3 5 2
   Introduzca fila 4: 5 3 8 5 6
   Introduzca fila 5: 0 1 4 3 4
   Totales filas    : 19 25 27 27 12
   Totales columnas : 18 23 26 21 22


Veamos quien lo resuelve de mejor manera  ;D
#700
Porque somos gordos frikis  :rolleyes: