Still not a great JAPH, and it exceeds 4x79, but it is more obfuscated than yesterday's.
# Cutting down a tree $t=t->p;$t->g;$t->f;sub t::p{@n=map{x($_)}'Just another Perl hacker,'= +~m/(.)/g; bless{n=>\@n},$_[0]}sub t::g{$_[0]->{t}=$_[0]->f(0,$#{$_[0]->{n}});$_[ +0]->{n}=1 ;$_[0]}sub t::f{($a,$b,$e)=@_;$m=int(($b+$e)/2);$f=$_[0]->{n}[$m];$l=$ +_[0]->f( $b,$m-1)if$b<$m;$r=$_[0]->f($m+1,$e)if$m<$e;bless [$l,$f,$r],'f'}sub t +::f{$_[0] ->{t}=1}sub x{bless \$_[0],"x"}sub x::DESTROY{print${$_[0]}}sub f::DES +TROY{$_[0 ]->[$_]=1 for(0..2)}
<Reveal this spoiler or all in this thread>
--MidLifeXis
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Felling a tree JAPH
by Grimy (Pilgrim) on Sep 03, 2013 at 20:28 UTC | |
by MidLifeXis (Monsignor) on Sep 03, 2013 at 20:31 UTC | |
by Grimy (Pilgrim) on Sep 04, 2013 at 07:49 UTC | |
by MidLifeXis (Monsignor) on Sep 04, 2013 at 11:53 UTC | |
by choroba (Cardinal) on Sep 04, 2013 at 12:12 UTC | |
| |
Re: Felling a tree JAPH
by Grimy (Pilgrim) on Sep 04, 2013 at 14:17 UTC | |
by MidLifeXis (Monsignor) on Sep 04, 2013 at 14:23 UTC | |
by Grimy (Pilgrim) on Sep 04, 2013 at 15:01 UTC | |
by MidLifeXis (Monsignor) on Sep 04, 2013 at 15:27 UTC |
Back to
Obfuscated Code