quick sort error

[sanilkumar]

This program is not working
enyone hep me to complete this


print "Enter the num: of num: ";
my $co=<STDIN>;
for(my $i=0;$i<$co;$i++)
{
        my $r=$i+1;
        print("Enter the  $r number");
        local$a[$i]=<STDIN>;
}
$first=0;
$last=$co;
quicksort(\@a,$first,$last);
system(clear);
print("\t@a");

sub quicksort(\@$$)
{
        my($num,$fi,$la)=@_;
        print("\t$fi");
        if($la > 0 && $fi!=$la)
        {
                my $pivot=$num->[$fi];
                my $spl=splitpoint(\@num,$fi,$la,$pivot);
                my $wi = $spl-1;
                my $ww = $spl+1;
                if($wi > $fi)
                {
                        quicksort(\@num,$fi,$wi);
                }
                if($ww < $la)
                {
                        quicksort(\@num,$ww,$la);
                }
        }
}
sub splitpoint(\@$$$)
{
        my($num,$fn,$ln,$pi)=@_;
        do
        {
                while($num->[$fn] < $pi)
                {
                        $fn=$fn+1;
                }
                while($num->[$ln] > $pi)
                {
                        $ln=$ln-1;
                }
                if($fn<$ln)
                {
                        @{ $num }[$fn, $ln] = @{ $num }[$ln, $fn];
                }
        }while($fn < $ln);
return($fn);
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]