задачка на перестановки

[ocehb]

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

my @ary = map { m#\[(.+?)\]# ? [ split "\\|",$1 ] : $_ } split "\\s+",$ARGV[0];
print join "\n",map { join " ",@$_ } shuffle (@ary);

exit;

sub shuffle (@) {
    my $word = shift or return;
    my @ary;
    foreach my $w (ref $word eq "ARRAY" ? @$word : $word) {
	foreach my $s (@_ ? shuffle (@_) : undef) {
	    push @ary,[ $w,defined ($s) && @$s ];
	}
    }
    return @ary;
}

Comments

[jerom.livejournal.com]

А зачем возня с ref .. eq "ARRAY"? сделай просто [ $_ ] в первой строке и всё.

А на скорость плевать, как обычно :-)

[jerom.livejournal.com]

+ ты теряешь знаки препинания

[ocehb]

добавить сплит со знаками препинания.

[ocehb]

можно. но мне нравится явное указание :)

[jerom.livejournal.com]

http://jerom.livejournal.com/89415.html

[gone-one.livejournal.com]

Черт, ну нельзя вечером такие вещи подкидывать ;))

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

sub mutate {{s/\[([^]|]*)\|?([^]]*)\]/$2&&push@_,$`."[$2]$'";$1/e||return@_ for@_;redo}}

Или в виде stdin-фильтра:

#!/usr/bin/perl -n
@_=$_;Z:{s/\[([^]|]*)\|?([^]]*)\]/$2&&push@_,$`."[$2]$'";$1/e||print(@_)&&last Z for@_;redo}

[ocehb]

красиво.

[ocehb]

я не знаю php.