Показать сообщение отдельно

  #1  
Старый 26.12.2015, 15:54
VasiliyP
Постоянный
Регистрация: 30.08.2011
Сообщений: 358
С нами: 7738166

Репутация: 11
По умолчанию

Цитата:
Сообщение от passka  

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

То, что касается приоритета дат :

Код:
#!/usr/bin/perl
use strict;
my($d1,$d2,$m1,$m2,$y1,$y2)=(1,31, 1,12, 1900,2100);
for my $y($y1..$y2){
    for my $m($m1..$m2){
        printf "%02d%02d%04d\n",$_,$m,$y for $d1..$d2;
    }
}
for my $y(0..9999){
    for my $m(0..99){
        for my $d(0..99){
            printf "%02d%02d%04d\n",$d,$m,$y if($d$d2 || $m$m2 || $y$y2);
        }
    }
}
А "другим распространенным комбинациями" - это слишком неконкретно.
 
Ответить с цитированием