Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Alien JAPH :)

by trizen (Hermit)
on Jan 31, 2012 at 21:08 UTC ( [id://951069]=obfuscated: print w/replies, xml ) Need Help??

read*DATA,$_,13**+3;y #{} {}{};s>[\s*]+>>g;$i=length;s/ (.{$i})(.)/$2$1/gx while$i--;eval;; ;for(q\just \.q)another),q)perl hacker)){ for(split$!){$_=$$h{$_}?do{$_=$$h{$_};;;;;;;y <A-Za-z0-9+/>/ -_/&&unpack'u',chr(length()*.75+32 ).$_}:$"x$];$w=(sort{$b<=>$a}map+length,split$\=$/) [$]-$]];s/^(.*?)\s*$/sprintf'%-*s',$w,$1/egm;push@f,[ [split$\],$w]}for$x($?..-//+$]){push@{$x[$x]},@{$f[$_][ $?]}?pop@{$f[$_][$?]}:$"x$f[$_][//]for$?..$#f}$s.="@{+pop @x}$/"while@x;$k=$g=chr(ord$^);for(split$\,$s){$s=$g;$$s=$_ ;++$g}$==135;print$w="\e[H","\e[J";{print$w;print$"x$=,$$_? chop$$_:''for$k..$g;select$,,$,,$,,.01;--$=&&redo}}__END__!!! C**wX*yX****o*f*****ig*pv*AoB**LhCffX*g*I**I*lyI****8*g*FC8L8 8**v*I*LC*g9*8I*o81ga***ICXp*I*Ig8***CIv*wF*B*8*I*8*wX**gCvIA g*LA,L>8*Cg*CCyy*w**cIi**F>*L=8**L*X**='CgCLfg*vC8wXgX*Kef*9* B8C**I*g*gvIALKX*L**C*vy*>I*gX***I*Xg8**w1*}CA*=y8*y******lAyw* =8C*gy*f****f**y*8**loK****K88A**8f=,*II****'g*f*F*F*wf*v**gvCA C8*y*y*LIgK******Xf''***'*I***A*X=yiov***g>C*,*8*g****IAgvA*I*X Fj**gCy*8Xv**89v'*XI*ILy**=A**C1A*8y*v*o**v9KvXyw**f**f**X8**C* *Fy******C*C9**L*vf**C*vF*8gg$*y**v*8v**AL**II*ILKsK*Xyv**gCI** 8**y fI**K*F*8**L*,*I9*C**8*BiFw*fg,A8h8*gF' B*** vg*L *8*C*8*F*fX*CC8*g*B***,Iv88A***** gC8X *1*C C***IF*u******CX8**L>Xi=*** *C** C*v8* **ICI8I*>*KC***8IF*B*8* *oIF* **K** Av*ALvg**C*I*g**'*wBA **FLg *'1''* f=*yLLI*****'ff'* *fo*9g *IA>y F***v*8FIoy'*C* *Lf** I*8f8v *k'y8F*=vw*>g **Kf** vy8*X> *K*L*XgKw*' o*g'vF *1By' gBv*LI*** XX8** KB***' Xv**A'**8 v***of ilgCgC* **'***f y*BA*8i **LI*y* *8IoIv* *oC,y*g ,**gI**= *yC8i 'I8g*L>8 '9{8gB*>A F*18I **8A=*v** *yA'*1pf** *wv** ****,I8l*v *IAB*AC*f**f I**yA** yF*C1*Avp*** **gCv'*****KIyK******8C'g9I**yFK*IL8*A=vo*y C*ABX*F*fv8***AC,*9***wy***IKI****,Kn=i** **Xf8w*L1*w*9***8*,ygf*X**88oKCIC***I** I*8*'*F8IL***CL**y*>*>I*****fCC*8LC*y **XC***A*I*g*C*FA*w****Bv**CfyA*I g*I*y*****A*BI9'g**gy*Iw*L8*lgX *IXXX*A**X**8g*I88*I***B*i*** *y**X*FXAyg****Avgo*F*F*F *XAg*gC*i****,*LI**>* IK*I*Xg****tv**** XCA**8pr*CIg* A*K=***y*

Replies are listed 'Best First'.
Re: Alien JAPH :)
by jffry (Hermit) on Feb 01, 2012 at 19:43 UTC

    It looks like this will only work on Unix terminals. I have mine set to 132 x 48, but that still doesn't seem wide enough to fit in the animation properly.

    What can I do to run this as you are running it? Perl version, TERM type, etc.

      170 x 10 should be just fine.
      Personally, I use perl v5.14.2 and sakura, but it works in xterm as well.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://951069]
Approved by toolic
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (5)
As of 2024-04-22 02:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found