my first japh

[Bryan Castillo]

Here is my first attempt at a JAPH. Any pointers on how to shorten
it up more and obscure it?

$|++;print"\033[2J";$f="\033[5;%dH%s";$x=33;END{print"\n\n"}
@_=map{[--$x,$_]}split//,'rekcaH lreP rehtonA tsuJ';
select'','','',(printf$f,@{splice@_,rand@_,1})/10 while(@_);

 

[Bryan Castillo]

Here is my first attempt at a JAPH. Any pointers on how to shorten
it up more and obscure it?

$|++;print"\033[2J";$f="\033[5;%dH%s";$x=33;END{print"\n\n"}
@_=map{[--$x,$_]}split//,'rekcaH lreP rehtonA tsuJ';
select'','','',(printf$f,@{splice@_,rand@_,1})/10 while(@_);

I actually wrote my first a few days ago too (in my signature). Can't offer
any advice on obscuring yours, but you may consider only using double quotes
so that the whole command is executable from a command line using single
quotes (i.e., perl -e '<code>'). Other than that, I like it. Made me look
up select()...

allright then...

perl -e '$|++;sub Z{printf@_};@_=map{[--($X||=33),$_]}split//,",rekcaH lreP ".
"rehtonA tsuJ";Z "\033[2J";eval"map{select".(qq!"",!x3)."(Z \"\\033[5;%dH%s\",".
"\@{splice"."\@_,rand\@_,1})/10}(1..".@_.")";Z "\033[20;1H"'

(I guess I should mention this only works with a terminal that
accepts ANSI escape sequences.)