Think about Loose Coupling | |
PerlMonks |
RE: RE: sieve of erothenesby ferrency (Deacon) |
on Jul 08, 2000 at 01:29 UTC ( [id://21589]=note: print w/replies, xml ) | Need Help?? |
Okay, so I went back to Abigail's talk, and discovered that he Doesn't actually explain completely how it works... I was at the talk, and apparently he talked and pointed, but the things he said weren't on the slide.
So, I'll attempt to describe How this regexp matches prime numbers only... no promises I'll get it all correct though. First, we build a string: This is a string of 1's as long as the number you're testing. Then we test that against the regexp: The first half of the alternation just takes care of matching an empty string (the number 0) and a single 1 (the number 1) which are prime. I'll break out the second half for clarity: In the parens, we match 2 or more ones in succession, in a non-greedy fashion. That means, it'll first try the regex matching "11" in the parens, and if the rest of the regex fails, it'll backtrack and try "111" in the parens, and so on. (sounds like a for loop...) After the parens, it looks for at least one more occurance of \1, which is what it just captured inside the parens. So, it's basically matching for an integral number of "11"'s in the string, and if that fails, it backtracks and tries matching an integral number of "111"'s in the string, and so on. Because of the anchors, there is no room for extra 1's at the end of the string. And since it needs to match the string of ones twice (once in the parens, and at least one more time after that), if the regex succeeds, you know that the number is divisible by a smaller integer, and is therefore not prime. I hope this helps... since it was already described in public at least once, I don't feel bad giving this particular magician's secret away. I'm sorry I don't know who originally wrote the code; I'm not sure if it's Abigail's or not. Alan
In Section
Cool Uses for Perl
|
|