Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Snow flake

by eyepopslikeamosquito (Archbishop)
on Dec 18, 2012 at 11:06 UTC ( [id://1009341]=obfuscated: print w/replies, xml ) Need Help??

Feeling nostalgic, and just reminded by LanX of the time of the year, here's an old obfu I wrote ten years ago for the 2002 cam.pm Christmas programming contest:

$_= q~v ZvZ&%(' $&"'"&( &"& $&"' "&$Z$#$$$#$%$& "'"& (&# %$&"'"&#Z#$$ $#%# %$%$%$%(%%%# %$%$%#Z"%*#$ %$%$ %$%(%%%#%$%$ %# Z"%, ($% $% $%( %%%# %$ %$% #Z" %*%" %$ %$%$ %(% %%# %$%$%# Z#%%"#%#%$ %$ %$%$##&#%$ %$%$%# Z$ &""$%"&$%$%$%#%"%"&%%$%$%#Z%&% &# %"'"'"'###%*'"'"'"ZT%?ZT%?ZS'>Zv~;s;\s;;g;$~=q~ZZZJ_ #_ZH /'\\ZG|#o #o#|ZG|$ <%|ZH\\" \\!_!_!/" /ZG/ )\\ ZF/+\\Z E|-|ZE |-|ZE| -|ZF\\+ /ZG \\)/ ~;;@x=@,= +map{$.= $";;join "",map((( $.^= O)x(-33+ord)),/./g)}split+Z;$~=~s~\s~~g;;s;.;(rand)< .2 ?"o":$";egx for@;=(5x84)x30;map {# system $^O=~W?CLS :+ "clear";;; ;print $_. $/, ,for $_ -18? @;: ### (( map{ $|= 1; ;;; join "" ,map($|--?$" x(-3 *11+ord):$_, /./g)}split+ Z,$~ ),@x);splice @;, -$_, 2,pop@,;@;=("" ,@;) ;;; ;sleep! $%}+2.. 18# /-\

Update 2021: changed egxfor to egx for to work with later version of Perl v5.32.

Replies are listed 'Best First'.
Re: Snow flake
by Tommy (Chaplain) on Dec 19, 2012 at 04:40 UTC

    That. Was. Awesome. Truly, you have a dark gift. o_0

    --
    Tommy
    $ perl -MMIME::Base64 -e 'print decode_base64 "YWNlQHRvbW15YnV0bGVyLm1lCg=="'
Re: Snow flake
by frozenwithjoy (Priest) on Dec 19, 2012 at 21:59 UTC
    Wow, that was beautiful!
Re: Snow flake
by perlaintdead (Scribe) on Dec 28, 2012 at 05:10 UTC

    simply amazing. however i am puzzled by the seemingly random colons.


    like:
    print $_. $/, ,for $_ -18? @;:
    and
    ,map($|--?$" x(-3 *11+ord):$_,

      simply amazing. however i am puzzled by the seemingly random colons.

      Um, strings are strings :) B::Deparse, Data::Dump

      A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (5)
As of 2024-03-28 16:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found