in reply to ASCII Pattern - Golf

well, this looks like right output:

($a,$b)=@ARGV;for($y=9;$y>0;$y--){$c=abs$b-$y;print$/,map{$d=abs$a-$_;$c>$d?$c:$d}(1..9)}

without cheating it's a few characters longer.

Replies are listed 'Best First'.
Re: ASCII Pattern - Golf
by cLive ;-) (Prior) on Sep 19, 2003 at 02:38 UTC
    Let's knock another 4 characters off :) 
    ($a,$b)=@ARGV;for($y=9;$y--;){$c=abs$b-$y;print$/,map{$d=abs$a-$_;$c>$
+d?$c:$d}(1..9)}

    [download]

    .02

    cLive ;-)

[reply]
[d/l]
Re: Re: ASCII Pattern - Golf
by devslashneil (Friar) on Sep 19, 2003 at 02:31 UTC
    Ahh i really like that one, i was thinking of doing it a similar way but i couldn't get it producing the right output, i also thought of using sort($a-$_,$b-$y)[0]; to get the greatest but couldn't get that working.

    Neil Archibald
    - /dev/IT -
[reply]

In Section Seekers of Perl Wisdom