Re: TETRA CTYS

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

Comment on Re: TETRA CTYS Download Code

Replies are listed 'Best First'.
Re^2: TETRA CTYS by llll (Initiate) on Jan 03, 2008 at 18:14 UTC
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]
Re^3: TETRA CTYS by olus (Curate) on Jan 03, 2008 at 19:23 UTC
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]
Re^4: TETRA CTYS by llll (Initiate) on Jan 04, 2008 at 11:12 UTC
Dont ask. I have no idea what is going on. Maybe answer will somehow magically appear. Delete the code if you wish.	[reply]