Help for this page
use ntheory qw/:all/; my $n = 183092192580; print "Factors: @{[factor($n)]}\n"; print "Divisors: @{[divisors($n)]}\n";
sub divisors { my($n,@factors) = @_; my %divisors; ... @d; } sub powerset {@_ ? map { $_,[$_[0], @$_] } powerset(@_[1..$#_]) : [];}
sub divisors { my($n,@factors) = @_; ... my @divisors = sort {$a<=>$b} keys %all_factors; @divisors; }
sub divisors { my($n,@factors) = @_; my $sqrtn = int(sqrt($n)); ... my @d = sort {$a<=>$b} keys %all_factors; @d, map { $_*$_ == $n ? () : int($n/$_) } reverse @d; }
#!/usr/bin/env perl use warnings; use strict; ... my @d = divisors($n,factor($n)); print "$n @d\n"; }
www.com | www.net | www.org
No recent polls found