Welcome to the Monastery PerlMonks

japhs etc.

by teamster_jr (Curate)
 on Apr 24, 2003 at 10:17 UTC Need Help??

Hullo all, I'm a lurker on london.pm + a first time poster etc - please be gentle!

i'm sure this has all been done before but:

```perl -e '
@m=(_,"|")x345;{my@a;!\$v{\$_}&\$_>0&\$_<346?push@a,\$_:0for(\$p-1)%23?\$p-1:
+0,
\$p%23?\$p+1:0,\$p+23,\$p-23;\$p=pop@v,redo if!@a;((\$r=\$a[@a*rand])-\$p)**2>
+1?
\$m[\$r>\$p?2*\$p-2:2*\$r-2]=\$":(\$m[\$r>\$p?2*\$p-1:\$r*2-1]=_);push@v,\$p;\$v{\$p
+}=
\$p=\$r;keys%v<345&&redo}print\$l?"":"\ec"."_"x47,\$l++%46?"":"\$/|",\$_ for
+@m
' | perl -e '
\$|=print"\ec",@m=map{s#\ec##;split//}<>;{\$v{\$p=\$r||50}=1;my@a;!\$v{\$_}&
+\$_
>0&\$_<767?push@a,\$_:1for\$m[\$p-2]eq _?\$p-2:0,\$m[\$p]eq _?\$p+2:0,\$m[\$p-1]
+ne
_?\$p+48:0,\$m[\$p-49]ne _?\$p-48:0;select\$q,\$q,\$q,.1;printf"\e[%d;%dH",1+
+\$p
/48,\$p%48;\$p>765?exit:1;\$r=!@a?pop@v:\$a[@a*rand];push@v,\$p if@a;redo}
';
NB: Requires VT100

I also have it as 1 6 line "sig", which isn't posted as by my own obscure rules a sig has to be < 4 lines.
this can be seen here
along with my other collection of sigs etc - apologies for corporate p1mpage, but hey....
al

2003-04-27 edit ybiC: <code> tags, un-HTML-encodify of code content (view source for original HTML-encoded code)

Replies are listed 'Best First'.
Re: japhs etc.
by teamster_jr (Curate) on Apr 27, 2003 at 14:47 UTC
Ah yes, my bad - I should have used the subject "sigs etc" or "a-mazing" or something ;-)
either way the rest of my sigs etc can be found here enjoy. al
Re: japhs etc.
by feanor_269 (Beadle) on Apr 26, 2003 at 20:24 UTC
Correct me if I'm wrong, but doesn't a JAPH print out "Just another Perl hacker"? Otherwise, very cool, so ++.

feanor_269
Re: japhs etc.
by Felonious (Chaplain) on Jul 07, 2003 at 15:38 UTC
++teamster_jr, very nice. I upvoted several of your obfus today. This is my favorite.
-- So prophesied the shakespearean monkeys, and so it shall be.

Create A New User
Node Status?
node history
Node Type: obfuscated [id://252833]
Front-paged by broquaint
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2021-04-23 05:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?