0
Я рассматриваю этот генератор случайных строк в Perl:Сколько случайных строк генерирует этот код?
sub generate_random_string {
my $length = 12;
my @chars = qw/2 3 4 5 6 7 8 9 A B C D E F G H J K M N P Q R S T U V W X Y Z/;
my $str = '';
$str .= $chars[int rand @chars] for 1..$length;
return $str;
}
Сколько уникальных строк это будет генерировать? Если я увеличиваю длину строки, сколько еще уникальных строк доступно?
Также, как рассчитать вероятность генерации одной и той же строки дважды (если длина строки остается равной 12)?
Является ли это домашнее задание? Kinda пахнет домашней работой. – Joel
Просто для удовольствия ... вот еще один способ создать ваш массив: 'my @chars = grep {/ [^ 10ILO] /} 0 .. 9, 'A' .. 'Z';' – toolic
Это не домашнее задание , Это должно решить внутреннее обсуждение того, как математически случайным является «генерация случайных строк». –