#!/usr/bin/perl use strict; use warnings; my @factors = prime_factors( shift ); print $_, $/ for @factors; sub prime_factors { my $x = shift; my @factors; for ( my $y = 2; $y <= $x; $y++ ) { next if $x % $y; $x /= $y; push @factors, $y; redo; } return @factors; }
In reply to Re: Avoid keeping larger lists in Memory
by Cristoforo
in thread Avoid keeping larger lists in Memory
by pr33
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |