sub f { (1x(my$n=$_[0]))=~/(1+)\1+$/;my$p=$+[1];$p>1?(f($n/$p),f($p)):$n } [download]
MeowChow s aamecha.s a..a\u$&owag.print
In reply to (MeowChow - let's split the cash) Re: Factoring Decimal Digits by MeowChow in thread Factoring Decimal Digits by Yossi