?

Log in

No account? Create an account

Previous Entry | Next Entry

The best part of waking up...

Obfuscated Perl is so much fun...

C:\>perl -
#!/usr/bin/perl -w
use strict;@\ = (9,15,{7=>79,22=>124##
,23=>124,26=>78,27=>45,28=>67,29=>72##
,49=>45,70=>124,47=>51,58=>124,54=>###
124,65=>124,79=>47,42=>92,30=>51,36###
=>47,40=>47,38=>92,46=>72,48=>67,50###
=>78,70=>124,92=>79,81=>92,83=>47,85##
=>92,78=>47,73=>124,69=>124,55=>124,##
129=>51,128=>72,127=>67,112=>124,101##
=>78,97=>78,87=>47,88=>47},1,0);map{##
map{$\[4]++;$\[2]{$\[4]}?print chr$\##
[2]{$\[4]}:print ' ';}(1..(($\[0]*$\##
[1])/9));print "\n";}(1..9);##########
^Z
      O
      ||  N-CH3
     / \ / \
H3C-N   ||  |
    |   ||  |
  // \ / \ //
 O    N   N
      |
      CH3
                                                                     
(Stolen from PerlMonks.)

Comments

( Read 3 comments — Leave a comment )
unusualtaste
Jan. 2nd, 2004 06:56 pm (UTC)
is it supposed to... look like something?
brentdax
Jan. 2nd, 2004 07:40 pm (UTC)
The output is a diagram of a caffeine molecule.
unusualtaste
Jan. 2nd, 2004 07:46 pm (UTC)
lol
witty
( Read 3 comments — Leave a comment )