Разложение чисел на множители

Категория: Perl
2011-08-25 20:54:56

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

code: #perl
  1. #!/usr/bin/perl
  2. use warnings;
  3.  
  4. for my $n(@ARGV)
  5. {
  6.     print "$n:";
  7.  
  8.     my $k=2;
  9.     while($k<=$n)
  10.     {
  11.         if($n % $k==0)
  12.         {
  13.             print " $k";
  14.             $n/=$k;
  15.         }
  16.         else
  17.         {
  18.             $k+=($k==2)? 1: 2;
  19.         }
  20.     }
  21.  
  22.     print "\n";
  23. }
Поделиться:

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

теги: консольное приложение, новички, факторизация