Your skill will accomplishwhat the force of many cannot 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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://214012]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (7)
As of 2023-12-11 21:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What's your preferred 'use VERSION' for new CPAN modules in 2023?

Results (41 votes). Check out past polls.

Notices?