> map{split/
>
/;[EMAIL PROTECTED];[EMAIL
PROTECTED];my$m;map$m.="-",1..$l;map{$s[$i]=$e[$_]if($e[$_]>$s[
> $i])[EMAIL PROTECTED];my$n;map$n.=" ",1...$s[$i];$e[$i]=$l+$s[$i];print"$i
$n$m\n"}<STDIN>
I found a few more shortcuts and ended with the following:
map{split;[EMAIL PROTECTED];[EMAIL PROTECTED];my$s;map{$s=$e[$_]if($e[$_]>$s)[EMAIL
PROTECTED];$e[$i]=$l
+$s;print$i,(map" ",0..$s),(map"-",1..$l),"\n"}<>
...But this is still twice as long as the leader...
On a side note, I am using ActivePerl, and am having problem using switches.
It seems as though -n and -p would be extremely useful here, but I always
get errors when I try via either a script or from the command line. Has
anyone dealt with this?
-Riley
