exercism-perl5

Prime.pm (456B) - raw

---

 package Prime;
 use strict;
 use warnings;
 
 sub factor {
     my $factors = [];
     my $number = shift;
     until ( $number == 1 ) {
         foreach my $divisor ( 2 .. $number ) {
             if ( $number % $divisor == 0 ) {
                 push @{ $factors } => $divisor;
                 $number = $number / $divisor;
                 last;
             }
         }
     }
     return $factors;
 }
 
 sub factors {
   my ($num) = @_;
   return factor( $num );
 }
 
 1;