Re: This is not a question ... call me slow if you like...

[Crossposted to alt.ascii-art.  For those reading this there, the blocks
of line noise we're discussing are obfuscated Perl programs.]

In article <3B7...@earthlink.net>, Benjamin Goldberg wrote:
>Anno Siegel wrote:
>>
>> We can compress better than that.  The banner uses only two characters, so
>> a single bit can tell which.  It's less true than yours (I had to unify the
>> line length) but it fits in four lines:
>> 
>> use MIME::Base64; $vec = decode_base64( q( vMj5OCHni76DRBEhGkVEFCQkMghfKSK+ry
>> IRQ/hSERF9k4giQh SLiCgog+MQopBDRF8CAAAAAAAAAAAAAAAAAAAAAM93gshx0ncGiIIURFFUgj
>> RA9JXg+4LxlQGebwTRF4xvDBAEJYiiqAQFgOBLTxQ5 6UsDAA==));for($i=0;$i<8*length
>> $vec;$i++) { print "\n" unless $i % 67; print vec( $vec, $i, 1) ? '8' : '_' }
>
>And using just uuencoding works even better, and doesn't require an
>external module:
>
>$u=q{M``````````#@1<['"3E?]!TDB@C1*"*B("&10?A*$?%]%8D8PI>*B.B;1!01
>}. q{MHEA$1$$9'(<0A1PB^A(``````````/!\)X@<)WUG@"A(011%)4@#1%\)OB\8
>}. q{<7QG@^480?<'XQ@!!4((HBDI0``B^]$21D[XT````};$j=unpack("u",$u);
>for(0..938){print vec($j,$_,1)?"8":" ";print"\n"unless(($_+1)%67)}

Clever.  Let's see if a fancier font can be made to work:

y/n/\n/,s/\d+/$"x$&/eg,print for qw'n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3
-_)2_|n\__/\_,_|___/\__|2\__,_|_|1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_
)2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n'

Hey, it even fits in three lines.

Actually, the same trick works pretty nicely for any line-style ASCII
art.  For example:

#!/usr/bin/perl
y/~/\n/,s/\d+/$"x$&/eg,print for qw#~19/`.4/`.~18f3\\2,f2\\~6Gee1Brain,2|
4\\/-`\\2\\6The1same1thing1we1do~3what1do1you4i.2_\\';.,X1j6every1night,1
Pinky.~5want1to1do4`:_\\1(2\\1\\',-.3Try1to1take1over~10tonight?3.'"`\\1a
\\eY'1)3the1world!2_,.~21`._"\\`-'1`-/12.-;'2|~23/;-`._.-';\\.8,',"4|~21.
'/3"'3|1`\\.-'""-/1/6j~19,/1/9i,-"8(2,/2/~16.-'1.f9.'12`"/2/~15/1,,/ffj\\
6/10.-"`.'-.'~14/1/_\\`--//)5\\1,--._1.-'_,-';1/~13f2".-"-._;'6`._1_.,-i;
1/_;1/~13`.,'3|;1\\10\\`\\_,/-'2\\'~14.'4l1\\1`.8/"\\1_1\\`2j~14f6:1`-'8`
._;."/`-'~14|6`.15,Z2\\~14l7j13.'/1-1\\`.~13.j.2.3<12(.'4.\\1\\f`.1|\\,'~
12,'1`.2\\1/1\\11`|6\\,'||-:j~10.'2.'\\3Y.2\\___......__\\1._3/`.||~2__..
_,-"1.-"'"")2/'1,'1_10\\1|2/"-.`j""``---.._~4.'_.-'"5/1.("-'-"":\\8._)|_(
__.1"'~3;.'9/-'---"".--"'7/,_,^-._1.)~3`:=.__.,itz1`---._.;'11""6""~##;-)

-- 
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real!  This is a discussion group, not a helpdesk.  You post something,
we discuss its implications.  If the discussion happens to answer a question
you've asked, that's incidental."           -- nobull in comp.lang.perl.misc

Related ASCII art in the Gallery

Explore these categories from our collection of 11,000+ artworks:

  ______
 /|_||_\`.__
(   _    _ _\
=`-(_)--(_)-'
         hjw

   .="=.
 _/.-.-.\_ 
( ( o o ) )
 |/  "  \| 
  \'---'/jgs  
  /`"""`\\ 

 _________
|  _____  |\
| |\ ___| | \
| | |   | | |
| | |___| | |
\ | |____\| |
 \|_________|
 Andy Johnson

  __      _
o'')}____//
 `_/      )
 (_(_/-(_/

[>====]

   ))
 .-#-----.
/_________\
 |[] _ []|
 |  |*|  |

Make your own ASCII art

Turn images, text or 3D into ASCII, or draw your own – right in your browser.