Как я решаю ряд ограничений в Perl?

Question

Как я решаю ряд ограничений в Perl?

Вам нужно проанализировать рекламные объявления, чтобы получить тип аудиообъекта, индекс частоты и количество каналов. Затем напишите аудио конкретный конфиг. https://wiki.multimedia.cx/index.php/MPEG-4_Audio#Audio_Specific_Config

9

linear-programming linear-algebra constraints math perl

задан vladr 22 February 2009 в 23:12

6 ответов

Я использую Данные:: Ограничение. Вы пишете небольшие подпрограммы, которые реализуют отдельные ограничения, затем последовательно применяют все ограничения, которые Вы хотите. Я говорю об этом немного в Освоении Perl в "Динамических Подпрограммах" глава.

use Data::Constraint;

Data::Constraint->add_constraint(
    'a_less_than_b',
    run         => sub { $_[1] <  $_[2] },
    description => "a < b",
    );

Data::Constraint->add_constraint(
    'b_greater_than_c',
    run         => sub { $_[2] >  $_[3] },
    description => "b > c",
    );

Data::Constraint->add_constraint(
    'a_greater_than_0',
    run         => sub { $_[1] > 0 },
    description => "a > 0",
    );

Data::Constraint->add_constraint(
    'c_less_than_30',
    run         => sub { $_[3] < 30 },
    description => "c < 30",
    );

Data::Constraint->add_constraint(
    'a_is_odd_between_10_18',
    run         => sub { 
        return 1 if( $_[1] < 10 or $_[1] > 18);
        return 0 unless $_[1] % 2,
        },
    description => "a is odd between 10 and 18",
    );

for ( 1 .. 10 )
    {
    my( $a, $b, $c ) = gen_abc(); 
    print "a = $a | b = $b | c = $c\n";

    foreach my $name ( Data::Constraint->get_all_names )
        {
        print "\tFailed $name\n"
            unless Data::Constraint->get_by_name( $name )->check( $a, $b, $c ),
        }
    }

sub gen_abc {
    my $c = int rand 30;
    my $b = int rand $c;
    my $a = int rand $b;
    return ($a, $b, $c);
}

Выполнение его, этот путь означает, что легко осмотреть результат для наблюдения то, что перестало работать вместо полного отказа:

a = 2 | b = 4 | c = 5
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 0 | c = 2
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 0 | c = 2
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 7 | b = 14 | c = 25
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 0 | c = 29
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 0 | c = 20
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 4 | c = 22
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 4 | b = 16 | c = 28
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 22 | c = 26
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c
a = 0 | b = 3 | c = 6
    Failed a_greater_than_0
    Failed a_less_than_b
    Failed b_greater_than_c

Если Вы хотите что-то больше хардкора, мой Кирпичный модуль обрабатывает деревья ограничений, включая сокращение и ветвление. Эти вещи имеют смысл для больших систем, где Вы будете смешивать и соответствовать различным ограничениям для различных ситуаций, так как большая часть кода настраивает ограничительные объекты. Если у Вас только есть своя одна ситуация, Вы, вероятно, просто хотите придерживаться с тем, что Вы имеете.

Удача, :)

2