Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

nesting annoyances

by jynx (Priest)
on Jul 24, 2005 at 17:17 UTC ( #477589=obfuscated: print w/replies, xml ) Need Help??

This is sadly not as obfuscated as i would like. It is an attempt at obfuscation wherein the engine is not easily understood, in hopes that that will provide a nice groundwork for a good obfu. I just hope the engine is as hard to figure out for others as it was for me :-/

Please tell me what you think,

sub{$0[1]=[reverse+1..$_[0]];{sleep sub{system('clear');print$",join$" +,(map{ $==$_;map($0[$_][$=]||'|',1..3),$/}reverse+0..-1+pop)}->($_[0]);@1[1,3 +,2]=([ 2,3],[1,2],[1,3]);@{$0[3]}==$_[0]||sub{join('',$_[1]?$0[1][$#{$0[1]}]= +=1?$_[ 3]?($_[3],3):$_[2]?($_[2],2):($_[1],1):($_[1],1):$_[3]?$0[3][$#{$0[3]} +]==1?$ _[1]?($_[1],1):$_[2]?($_[2],2):($_[3],3):($_[3],3):$_[2]?$0[2][$#{$0[2 +]}]==1 ?$_[1]?($_[1],1):$_[3]?($_[3],3):($_[2],2):($_[2],2):$|)=~/(.)(.)/;pus +h@{$0[ $1]},pop@{$0[$2]}}->(0,sub{($0[1][$#{$0[1]}]?!$0[$1[1][@{$0[1]}%2]][$# +{$0[$1 [1][@{$0[1]}%2]]}]?$1[1][@{$0[1]}%2]:$0[1][$#{$0[1]}]<$0[$1[1][@{$0[1] +}%2]][ $#{$0[$1[1][@{$0[1]}%2]]}]?$1[1][@{$0[1]}%2]:$%:$,,$0[3][$#{$0[3]}]?!$ +0[$1[3 ][@{$0[3]}%2]][$#{$0[$1[3][@{$0[3]}%2]]}]?$1[3][@{$0[3]}%2]:$0[3][$#{$ +0[3]}] <$0[$1[3][@{$0[3]}%2]][$#{$0[$1[3][@{$0[3]}%2]]}]?$1[3][@{$0[3]}%2]:$, +:$-,$0 [2][$#{$0[2]}]?!$0[$1[2][@{$0[2]}%2]][$#{$0[$1[2][@{$0[2]}%2]]}]?$1[2] +[@{$0[ 2]}%2]:$0[2][$#{$0[2]}]<$0[$1[2][@{$0[2]}%2]][$#{$0[$1[2][@{$0[2]}%2]] +}]?$1[ 2][@{$0[2]}%2]:$-:$!)[($0,0..2)[1,3,2]]}->($@,@0[1,3,2]))&&redo}}->(po +p||3);

Replies are listed 'Best First'.
Re: nesting annoyances
by TedPride (Priest) on Jul 25, 2005 at 08:24 UTC
    Well, the code crashes MacPerl. What's it supposed to be doing?
      it solves the towers of hanoi for any positive number of disks...


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://477589]
Approved by davidrw
[erix]: grep is a program, not a regex-engine
[Tanktalus]: perldigious: I'm 20 years in, and I don't want to move ;)
[Lady_Aleena]: erix, right, it searches files for a pattern. pcregrep is supposed to do the same thing with the addition of being able to search multiline.
[erix]: ah, pcregrep is a stanalone program?
[Lady_Aleena]: erix, yes.
[Lady_Aleena]: pcre stands for 'Perl Compatible Regular Expressions'.
[erix]: ok, ok, I thought you meant the engine
[perldigious]: Tanktalus: Ha, understandable, that does make it harder when you don't want to move. I assume you are looking at remote work from home jobs too?
[Tanktalus]: yeah, I'm looking at a lot of remote work - I've been working from home since 2002, so I know how to do the work from remote, I just need a new employer ;)
[Lady_Aleena]: Discipulus, I wouldn't know how to get a script to do what the greps do in one line.

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2017-05-23 19:24 GMT
Find Nodes?
    Voting Booth?