Foro - Perl en Español

por **explorer** » 2008-08-04 19:01 @834

En Europa tenemos las siguientes monedas de Euro:

€0,01
€0,02
€0,05
€0,10
€0,20
€0,50
€1,00
€2,00

Alguien nos da un puñado de monedas. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@bote=( 0.20, 0.01, 0.02, 0.20, 0.50, 1.00, 0.50, 0.10, 0.10, 0.05 );Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Nosotros deberíamos poder entonces hacer la suma y dar la cifra de Euros que tenemos... pero... algunas de esas monedas son falsas.

De hecho, sabemos:
* Que al menos una de las monedas es falsa
* Que al menos una de las monedas es verdadera

Cuestión: queremos obtener todas las combinaciones de sumas posibles de todas las monedas. Por ejemplo:

€0.01
€0.02
€0.03
€0.10
€0.11
...
€2.67

#!/usr/bin/env perl
use strict;
use warnings;

my@bote=( 0.20, 0.01, 0.02, 0.20, 0.50, 1.00, 0.50, 0.10, 0.10, 0.05 );
my%pos;

sub encontrar_total {
my@can=@_;
my$i=$#can;

for($i;$i>0;$i--){
my$euros=0;
$euros+=$_for(@can[ 0..$i]);
$pos{$euros}+=1;
}
}

do{$pos{$_}+= 1 }for(sort@bote);

encontrar_total(@bote);

encontrar_total(reverse@bote);

foreachmy$cant(keys%pos){
my$e=" " x ( 6 -(length$cant));
print($cant.$e."-> ".$pos{$cant}." Posibilidad(es)\n");
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Jenda** » 2009-02-14 12:32 @564

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printf"%-6d -> %d Posibilidad(es)\n",$cant,$pos{$cant};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **creating021** » 2009-03-05 20:29 @895

Jenda escribiste:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
printf "%-6d -> %d Posibilidad(es)\n", $cant, $pos{$cant};
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¡Claro, buen dato!

Gracias Jenda

Foro - Perl en Español

La cifra verdadera

La cifra verdadera

Publicidad

¿Quién está conectado?