Ver Tema

explorer · Lun Ago 04, 2008 7:01 pm

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:

Syntax: [ Download ] [ Hide ]

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 );

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

creating021 · Mar Feb 10, 2009 2:46 pm

El código no es muy bueno, pero me dio por hacerlo, si se puede mejorar, me gustaría saber cómo...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/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 );

foreach my $cant ( keys %pos ) {

    my $e = " " x ( 6 - ( length $cant ) );

    print ( $cant . $e . "-> " . $pos{$cant} . " Posibilidad(es)\n" );

}

Jenda · Sab Feb 14, 2009 12:32 pm

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

printf "%-6d -> %d Posibilidad(es)\n", $cant, $pos{$cant};

creating021 · Jue Mar 05, 2009 8:29 pm

Jenda escribió:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

printf "%-6d -> %d Posibilidad(es)\n", $cant, $pos{$cant};

¡Claro, buen dato!

Gracias Jenda

Publicidad

Socializa