Hi,
I knew, I should've kept my mouth shut, because
on Tue, Aug 27, 2002 at 10:21:36PM -0400, Keith C. Ivey wrote:
> You don't get off that easily. Here you are, 1997-06-24, in
> de.comp.security using Perl to solve a puzzle about finding
> someone's bankcard PINs:
> http://groups.google.com/groups?selm=slrn5qvq9g.ap5.sec%40matrix.42.org
Ugh. I totally forgot about that. Must've repressed that memory %)
That is one awfull piece of perl. Doing tr external. Unnecessarily using
C-Style for. Using split to @_. And even the algorithm for checking for
double letters is very unperlish.
Hmm. Come to think of it, that[0] would make a nice golf hole, wouldn't
it?
What about another open round on that as a quick training session just
before the new TPR() starts?
CU,
Sec
[0] Finding (and printing) all words (from stdin) with all of a set of
given letters (on the command line, for simplicity) appearing once
in the first 10 characters ot the word, and containing no duplicates
in the first 10 characters.
--
perl -nle 'print "$_ is divisible by 5" if (unpack("B*",reverse pack("L",$_))=~
/^0*(1(10)*(0|11)(01*0(01)*(00|1))*10*)+$/)'
