Перловые экзерсисы

[recoder]

Для домашнего проекта поставил себе задачку: по форматной строке вида "Я [сразу|немедленно] [пошёл|поехал|пополз|попёрся] разбираться с [делами|братками]." сгенерировать полный список всех возможных вариантов такой строки. Посидел с карандашиком минут 20, наваял примерно такой код:

Comments

[vlsergey]

Навеяно code_wtf?
http://community.livejournal.com/code_wtf/73670.html

[greshnik]

Ну, алгоритм подбора всех возможных перестановок - не бином ньютона. Так что неудивительно, что заработало.

[larubin]

Т.е. бином Ньютона не заработал бы? ;)

[greshnik]

Заработал бы. Но не сразу %)

[recoder]

Не... Я уже вышел из возраста, когда бросаются писать то, что уже давно написано.

[russuv]

помню дет так с десять назад, лежал в больнице и за неимение компа......
накатал на бумажке ;-) на ассмеблере пару листов....
при загнании в комп - на удивление все заработало.
че писал уже непомню.... но листинг был по длине достойный ;-)

[recoder]

О, я тоже пока лежал в больнице, в тетрадке сделал редизайн своего хомяка, а потом только нарисовал картинки и вбил html и скрипты...

цветной код

[jerom]

#!/usr/bin/perl -l

$pattern = "Я [сразу|немедленно] [пошёл|поехал|пополз|попёрся] разбираться с [делами|братками].";

print "$_" for(@{mutate($pattern)});

sub mutate {
my (@m, $s, $w);

while($s = pop@_) {
if($s =~ /\[(.*?)\]/) {

for$w(split '\|',$1) {
$_ = $s;

s/\[(.*?)\]/$w/;
push @_,$_;

}
} else {
push @m, $s;

}
}
return \@m;
}

Re: цветной код

[larubin]

Что скажешь, recoder?

меня уже поправили (с pre)

[jerom]

мне уже сказали, что надо быть проще и писать так:

sub mutate {
my (@m, $s, $w);
while($s = pop@_) {
if($s =~ /\[(.*?)\]/) {
push @_, map { ($w = $s) =~ s/\[.*?\]/$_/; $w } split '\|', $1;
} else {
push @m, $s;
}
}
return \@m;
}

Re: меня уже поправили (с pre)

[recoder]

Супер!
Всегда знал, что нет предела перловому совершенству!