Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Useless .... of course !

by Gloom (Monk)
on Mar 09, 2001 at 03:05 UTC ( #63125=obfuscated: print w/ replies, xml ) Need Help??

Ok, this is no realy a japh but I doubt you can do shorter and more useless ! I'm joking dude ... I know you can't :)

#!/usr/bin/perl -w use strict; #require "vt100 complilant terminal :)"; print "\033[2J"; # really start here for( my($a,$x,$y,@s)=qw(40 1 0 0 1 0 -1);$a--;push@s,shift@s) { print "\033[",$x+=$s[0] ,";",$y+=$s[1] ,"H\@" for (0..$a) }

_________________________
Perl Enshrine Real Life

Comment on Useless .... of course !
Download Code
SHORTER Useless code
by arhuman (Vicar) on Mar 13, 2001 at 03:10 UTC
    It's been a game between Gloom and me, but may be you may like it too !

    So, If you're interested in Perl golf, come on and join the contest...
    Let's turn this 'useless code' into 'shortest useless code'
    (RULE: Reproduce the spiral made by gloom with the fewest char.
    the screen cleaning, shebang and the like aren't necessary...)

    Here is my contribution (84 char):
    $n=20;$i=1;while($n){map{print"\e[$a;${b}H@";${$n>$_?*b:*a}+=$i}1..2*( +$n-=2);$i*=-1}


    PS: For a really impressive PerlGolf example see this.


    "Trying to be a SMART lamer" (thanx to Merlyn ;-)

      Good Job arhuman,
      I don't know if I can write a smaller one but I'm sure it's possible.

      Let's try !

      BoBiOne

      82 ! switching from while to for and saving 2 characters :
      for($n=20,$i=1;$n;$i*=-1){map{print"\e[$a;${b}H@";${$n>$_?*b:*a}+=$i}1 +..2*($n-=2)}

      __________________
      Hope this helps

      I am sorry to disappoint you, arhuman, but the following is not shorter (94 bytes, darn scalar)... But well, it's recursive... and just another way to do it.

      <code> sub _{($x,$_)=@_;s/(.*)\n/\n $1@/g;$x>40?x:_($x+2,scalar reverse'@'x$x."\n$_\n".$"x$x)}_;print <code>

      Change the 40 for smaller or bigger spirals...

        Interesting !

        the recursive branch is now open..


        "Trying to be a SMART lamer" (thanx to Merlyn ;-)
Re: Useless .... of course !
by arhuman (Vicar) on Mar 13, 2001 at 19:54 UTC
    81! You had a good idea Gloom, I just enhanced it...
    :-p
    for($n=36,$i=1;$n-=4;$i*=-1){map{print"\e[$a;${b}H@";${$n/2>$_?*b:*a}+ +=$i}1..$n}

    "Trying to be a SMART lamer" (thanx to Merlyn ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://63125]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2014-10-22 01:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (112 votes), past polls