in reply to Calculate prime factors for a given numer in a perl one-liner
It seems a little bit much to ask in my opinion of a one-liner, but what do you think? Part of my question is whether this is a good quiz or not.
As per my opinion, quiz is used to measure growth in knowledge and/or skills. A positive attempt to solve the quiz will definitely improve the knowledge even is not solved. So in case of one-liner task, It might improve the in-depth knowledge of language.
I think I understand the brilliance behind the regular expression, and turning the number into a string, I just have one question about the math. The reg-ex will match the smallest possible factor, right? Each iteration of the loop it effectively divides the length of the string by the match's length. If it does match the smallest possible factor (or exits the loop and prints the length), then how does it ensure that it only picks prime numbers each time?
Yes, Its a brilliant use of regular expression, a string operation to fulfill mathematic task.
then how does it ensure that it only picks prime numbers each time?
Please read comment which might help you to understand it
Please read this link http://montreal.pm.org/tech/neil_kandalgaonkar.shtml It will explain it how it works with example.^ # match beginning of string ( # begin first stored group 1 # match a one 1+? # then match one or more ones, minimally. ) # end storing first group \1+ # match the first group, repeated one or more times +. $ # match end of string.
One liner format look like :$y=shift; for($i=2;$i<=$y;){ next if$y%$i++; $y/=--$i; push@x,$i } print@{$,=x};
$y=shift;for($i=2;$i<=$y;){next if$y%$i++;$y/=--$i;push@x,$i}print@{$, +=x};
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Calculate prime factors for a given numer in a perl one-liner
by bhumip (Initiate) on Dec 20, 2010 at 13:54 UTC | |
by Anonymous Monk on Nov 17, 2011 at 08:25 UTC |