perl -e '$x=sub{$s=0;map{$s+=$_}@_;$s%17};@_1=11;@==map{84+($z++%2?shift @_:18)}qw<P E R L>;
print map{chr&$x(map{ord}split//)+shift(@=)}sort qw"Who is Perl guru?"'

Re: who is perl guru?

zshzn

created: 2006-02-05 19:23:44

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

Neat.

perl -e '$x=sub{$s=0;map{$s+=$_}@_;$s%17};@_[1]=11;@==map{84+($z++%2?shift @_:18)}qw
;
print map{chr&$x(map{ord}split//)+shift(@=)}sort qw"Who is Perl ego?"'