Problem:
Score : 400 points

Problem Statement

Dolphin is planning to generate a small amount of a certain chemical substance C.

In order to generate the substance C, he must prepare a solution which is a mixture of two substances A and B in the ratio of M_a:M_b.

He does not have any stock of chemicals, however, so he will purchase some chemicals at a local pharmacy.

The pharmacy sells N kinds of chemicals. For each kind of chemical, there is exactly one package of that chemical in stock.

The package of chemical i contains a_i grams of the substance A and b_i grams of the substance B, and is sold for c_i yen (the currency of Japan).

Dolphin will purchase some of these packages. For some reason, he must use all contents of the purchased packages to generate the substance C.

Find the minimum amount of money required to generate the substance C.

If it is not possible to generate the substance C by purchasing any combination of packages at the pharmacy, report that fact.

Constraints

1≦N≦40

1≦a_i,b_i≦10

1≦c_i≦100

1≦M_a,M_b≦10

gcd(M_a,M_b)=1

a_i, b_i, c_i, M_a and M_b are integers.

Input

The input is given from Standard Input in the following format:

N M_a M_b
a_1 b_1 c_1
a_2 b_2 c_2
:
a_N b_N c_N

Output

Print the minimum amount of money required to generate the substance C. If it is not possible to generate the substance C, print -1 instead.

Sample Input 1

3 1 1
1 2 1
2 1 2
3 3 10

Sample Output 1

3

The amount of money spent will be minimized by purchasing the packages of chemicals 1 and 2.

In this case, the mixture of the purchased chemicals will contain 3 grams of the substance A and 3 grams of the substance B, which are in the desired ratio: 3:3=1:1.

The total price of these packages is 3 yen.

Sample Input 2

1 1 10
10 10 10

Sample Output 2

-1

The ratio 1:10 of the two substances A and B cannot be satisfied by purchasing any combination of the packages. Thus, the output should be -1.

Solution in Perl (v5.18.2) (judge verdict: Wrong Answer)

use strict;
use warnings;
use List::Util qw{min};

my $nmax=40;
my $abmax=10;
my $inf = 1000000;
my $dp = [[[]]];

sub main {
    my $i=0;
    my ($N,$Ma,$Mb,@A,@B,@C);
    while(<STDIN>){
        chomp;
        if($i==0){
            ($N,$Ma,$Mb) = split(/ /,$_);
        } else {
            ($A[$i-1], $B[$i-1], $C[$i-1]) = split(/ /, $_);
        }
        $i++;
    }
    print solver($N,$Ma,$Mb,\@A,\@B,\@C);
}
main() unless caller;

sub solver {
    my ($N,$Ma,$Mb,$A,$B,$C) = @_;

    my @A = @$A;
    my @B = @$B;
    my @C = @$C;

    for my $i(0..$N-1) {
    for my $ca(0..$nmax*$abmax) {
    for my $cb(0..$nmax*$abmax) {
        $dp->[$i]->[$ca]->[$cb] = $inf;
    }
    }
    }
    $dp->[0]->[0]->[0] = 0;

    for my $i(0..$N-2) {
    for my $ca(0..$nmax*$abmax) {
    for my $cb(0..$nmax*$abmax) {
        next if ($dp->[$i]->[$ca]->[$cb] == $inf);
        $dp->[$i+1]->[$ca]->[$cb] = min($dp->[$i+1]->[$ca]->[$cb], $dp->[$i]->[$ca]->[$cb]);
        $dp->[$i+1]->[$ca+$A[$i]]->[$cb+$B[$i]] = min($dp->[$i+1]->[$ca+$A[$i]]->[$cb+$B[$i]], $dp->[$i]->[$ca]->[$cb]+$C[$i]);
    }
    }
    }

    my $ans = $inf;

    for my $ca(1 .. $nmax*$abmax) {
    for my $cb(1 .. $nmax*$abmax) {
        if($ca*$Mb==$cb*$Ma) {
            $ans = min($ans, $dp->[$N-1]->[$ca]->[$cb]);
        }
    }
    }

    $ans = -1 if($ans==$inf);
    return $ans;
}