There's more than one way to do things 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?
 [RonW]: james28909 Why not write a Perl program to do the task? [choroba]: RonW Yes, but then, one day, they needed to switch from FTP to SFTP, and... but I can't give the whole talk away here :) [RonW]: Tunnel FTP through stunnel? [james28909]: i guess i should have done it in perl. i bet it woulnt have taken me 5 hours to figure out haha [choroba]: In the end, I was able to upgrade Perl from 5.8.3 to 5.22 and install Net::SFTP::Foreign , at least for the task involved

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2017-05-22 21:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (174 votes). Check out past polls.