public
Created

  • Download Gist
gistfile1.pl
Perl
1 2 3 4 5 6
# Prime factorization.
perl -le '$_= 1 x pop; print $+[1] and s/$1/1/g while /^(11+?)\1*$/' 60
2
2
3
5

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.