"be consistent" PerlMonks

### Re: Mission: Obfuscation (1)

by premchai21 (Curate)
 on Nov 19, 2002 at 02:18 UTC ( #214012=note: print w/replies, xml ) Need Help??

in reply to Mission: Obfuscation (1)

Well, let's see now...
```#!/usr/bin/perl
sub p{(\$p::P)=@_;for\$P(2..sqrt(\$p::P)){\$P::p=\$p::P/\$P;(\$P::p==int(\$P::
+p))
&& return(0);}return(\$p::P>1)};\$p::p=3;\$\=\$,=\$/;\$P::P=0;
p:for\$p(1..(\$p::p-1)){p(\$P=\$p**2+\$p+\$p::p)&& push(@P,\$P)}
for\$p(1..\$#P){\$P[\$p]=(grep{(\$_!=\$p)&&(\$P[\$_]==\$P[\$p])}
(0..\$#P))?0:\$P[\$p]}\$p::p=0;\$p::p=\$P[\$P::P++]until\$p::p;
\$P[@P]=@P;\$_||(\$P[-1]--)for@P;(pop(@P)>=\$ARGV[0])||goto p;
print((sort{\$a<=>\$b}grep{\$_}(2,@P))[0..\$ARGV[0]-1]);

Update: Thanks to jynx for pointing out the duplicates printed by the original version. Should be fixed now, and perhaps slightly more obfuscated as well.

Create A New User
Node Status?
node history
Node Type: note [id://214012]
help
Chatterbox?
 [holli]: my spelling... can you actually aquire dyslexia? [LanX]: SoPW = Seekers of Perl Wisdom, the section for asking and answering general Perl questions. A form for asking a new Perl question can be found at the bottom of that page. (Be sure to read Posting on PerlMonks before posting!) [Corion]: r@j: Have you printed what '\$Process_java' prints? How will Perl know that you mean a variable named \$Process and not a variable named \$Process_java? Also, why doesn't Perl complain when you're using strict in your program? [erix]: thanos1983: s/ For login purposes / For logging purposes / # I suppose ...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (15)
As of 2017-10-23 15:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My fridge is mostly full of:

Results (280 votes). Check out past polls.

Notices?