Useless .... of course !

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) }
[download]

_________________________
Perl Enshrine Real Life

Comment on Useless .... of course ! Download Code

Replies are listed 'Best First'.
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}` [download] PS: For a really impressive PerlGolf example see this. "Trying to be a SMART lamer" (thanx to Merlyn ;-)	[reply] [d/l]
Re: SHORTER Useless code by BooK (Curate) on Mar 14, 2001 at 16:14 UTC
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...	[reply]
Re: Re: SHORTER Useless code by arhuman (Vicar) on Mar 14, 2001 at 16:25 UTC
Interesting ! the recursive branch is now open.. "Trying to be a SMART lamer" (thanx to Merlyn ;-)	[reply]
Re: SHORTER Useless code by Gloom (Monk) on Mar 13, 2001 at 19:35 UTC
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)}` [download] __________________ Hope this helps	[reply] [d/l]
Re: SHORTER Useless code by bobione (Pilgrim) on Mar 13, 2001 at 14:46 UTC
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	[reply]
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}` [download] "Trying to be a SMART lamer" (thanx to Merlyn ;-)	[reply] [d/l]