#!/usr/bin/perl#?
#3rdeyeperls#    #
#hllllp#         #
###             #
#              #0#
             $a = 1;
           $b = 1 + 2;
          $c = 1 + 2 + 3;
       $d = 1 + 2 + 3 + 4;
     $e = $a + $b + $c + $d;
  $x=$e/5;$y=$x;print$x;print$y;
#who/what?? is snowing my window #

[download]

Replies are listed 'Best First'.
Re: TETRA CTYS
by olus (Curate) on Jan 03, 2008 at 16:16 UTC
    Nice tree. Got inspired by it and also wrote a tree like script :)
                 #
            ###
           $cur=
          "\e[H";
         my $cls =
        "\e[1J"; $n
       =9;print$cls;
      L1: print $cur;
     $c = ( $c eq '#')
    ? '*' : '#' ; for (
   $i = 1; $i<9; $i++) {
  $a=sprintf("% 13s%s \n"
 , $c x$i, $c x ( $i-1) );
print $a; sleep 1;}goto L1;

    [download]
    Paste the code into a new file and run it.
    Abort with ^C
[reply]
[d/l]
      The code is a real question. I'm afraid someone hacked my computer.
      Cool script. Is there a quick and easy tutorial on how to make these?
[reply]
        You'll have to rephrase your question because, as it is, it does not look like one.
        Also, if you have questions, the right place to post them is in 'Seekers of Perl Wisdom' and not on 'Obfuscation'.
        Your original post was not approved as an obfuscation.
[reply]

Back to Obfuscated Code