Скрыть

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

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

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 триллионов комбинаций....

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

....