this post was submitted on 31 Oct 2024
330 points (97.1% liked)
Programmer Humor
32472 readers
855 users here now
Post funny things about programming here! (Or just rant about your favourite programming language.)
Rules:
- Posts must be relevant to programming, programmers, or computer science.
- No NSFW content.
- Jokes must be in good taste. No hate speech, bigotry, etc.
founded 5 years ago
MODERATORS
you are viewing a single comment's thread
view the rest of the comments
view the rest of the comments
The answer given in the spoiler tag is not quite correct!
Test case
According to the spoiler, this shouldn't match "abab", but it does.Corrected regex
This will match what the spoiler says:^.?$|^((.)\2+?)\1+$
Full workup
Any Perl-compatible regex can be parsed into a syntax tree using the Common Lisp package CL-PPCRE. So if you already know Common Lisp, you don't need to learn regex syntax too!So let's put the original regex into CL-PPCRE's parser. (Note, we have to add a backslash to escape the backslash in the string.) The parser will turn the regex notation into a nice pretty S-expression.
At which point we can tell it's tricky because there's a capturing register using a non-greedy repetition. (That's the
\1
and the+?
in the original.)The top level is an alternation (the
|
in the original) and the first branch is pretty simple: it's just zero or one of any character.The second branch is the fun one. It's looking for two or more repetitions of the captured group, which is itself two or more characters. So, for instance, "aaaa", or "abcabc", or "abbaabba", but not "aaaaa" or "abba".
So strings that this matches will be of non-prime length: zero, one, or a multiple of two numbers 2 or greater.
But it is not true that it matches only "any character repeated a non-prime number of times" because it also matches composite-length sequences formed by repeating a string of different characters, like "abcabc".
If we actually want what the spoiler says — only non-prime repetitions of a single character — then we need to use a second capturing register inside the first. This gives us:
^.?$|^((.)\2+?)\1+$
.Specifically, this replaces
(..+?)
with((.)\2+?)
. The\2
matches the character captured by(.)
, so the whole regex now needs to see the same character throughout.I upvoted this because I hate it.
I upvoted you because I consider Perl write only (used to know it, now it inspires readable code as a high priority)
Let's put it this way: You can produce unreadable code in basically any language. With Perl, it is just a bit easier.
And of course if you have the discipline of a good programmer, even your casual Perl programs should be readable. That's what differenciates a good programmer from a hacker.
Yeah, I was younger then, perhaps less disciplined, and as always, given enough work you can decompile or regenerate anything. Still, I contend, the nature of Perl, powerful as it was, lent itself to unmaintainable messes, and I'm not talking regex's, which is why it has faded, no amount of get gud withstanding.