Re: A "recursive" JAPH

When I run this, I get print pack 'c*',(74,46,65,46,80,46,72,46,10);

If you change the last print to eval it works.

for((112,97,99,107)){$s.=chr $_};
($z="``'=``:=`~,=``~=``{=;'=``'=+}=++=`~}=;".
"'=;+=++=:'=;+=::=:~=,,=,'=::=,'=,:=::=,:=,;".
"=::=,'=,:=::=,{=:_=::=,'=,:=::=,,=,~=::=,'=,".
":=::=:+=:_=:`=,+=`~")=~tr/~`';:,{}_+=/0-9i/; 
eval "\$_=$s 'c*', qw/@{[split /i/,$z]}/;";eval;
[download]

-Kevin

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}
[download]

Comment on Re: A "recursive" JAPH Select or Download Code

Replies are listed 'Best First'.
Re^2: A "recursive" JAPH by chas (Priest) on Feb 16, 2005 at 03:02 UTC
Kevin, Yes, but the the idea of "recursive" is that this code prints code that prints J.A.P.H. if you run it. One could similarly have code that prints code that prints code that prints J.A.P.H. I guess this is a bit warped... chas	[reply]