Поиск простых чисел с использованием регулярных выражений

Категория: Perl
2011-08-30 23:24:42
code: #perl
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4.  
  5. my $n=shift or die "$0: Укажите число в командной строке\n";
  6.  
  7. for(2..$n)
  8. {
  9.     print "$_\n" if $_ % 2 and ('Q' x $_)!~m/^(QQ+?)\1+$/ or $_==2;
  10. }
Поделиться:

Похожие статьи:

теги: простые числа, регулярные выражения