Help for this page
sub divisors { my($n,@f) = @_; my @d = (1); ... @d = sort { $a <=> $b } @d; @d; }
www.com | www.net | www.org
No recent polls found