rulinux.net - Форум - Talks - "не прислоняться"

Re:"не прислоняться"

Sun, 07 Aug 2016 07:45:08 +0300

вот тут какието коды на питоне есть http://stackoverflow.com/questions/361/generate-list-of-all-possible-permutations-of-a-string

как коротко однако

python

from itertools import permutations

s = 'ABCDEF'

p = [''.join(x) for x in permutations(s)]

Re:"не прислоняться"

Sun, 07 Aug 2016 07:38:47 +0300

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

А для питона есть подобная штука по перебору ?

Re:"не прислоняться"

Sun, 07 Aug 2016 05:53:32 +0300

> Хех, мир открыл.
мир открыл, я даже и предположить не мог....

Re:"не прислоняться"

Sun, 07 Aug 2016 03:58:42 +0300

Хех, мир открыл.

Или ты это запостил сюда, чтобы показать что в пердле есть фигня под названием List::Permutor? Да, весьма забавно, я тебе скажу

Re:"не прислоняться"

Sun, 07 Aug 2016 03:07:15 +0300

это только число перестановок в 14-ти элементном массиве, а там еще есть и 13, 12, 11... и т.д. до 2-х буквенных слов

в тихом ужасе уполз под одеяло спать

"не прислоняться"

Sun, 07 Aug 2016 02:37:44 +0300

решил перебрать все буквы с сабжа, чтобы выяснить, наконец, сколько же имеется слов, которые можно составить из этих букв

perl

#!/usr/bin/perl -w

use strict;

use List::Permutor;

my $permutor = List::Permutor->new('н','е','п','р','и','с','л','о','н','я','т','ь','с','я');

while ( my @permutation = $permutor->next() ) {

    print "@permutation\n";

}

и сижу и жду и офигеваю. думал оно мне даст два десятка или три комбинаций

потом считаю факториал от 14(число букв) и получаю 87 триллионов комбинаций....

выпал в осадок

....