quicksort

[sanilkumar]

i write a code for quicksort in perl
this is not working
                    help me doing this




> for($i=0;$i<10;$i++)
> {
>       print("Enetr the $i num: ");
>       $a[$i]=<STDIN>;
>       print("@a[$i]");
> }
> print("@a");
>
> $first=0;
> $last=10;
> quicksort(@a,$first,$last);
> print("@a");
>
>
> sub quicksort(\@$$)
> {
>       local(@num,$fi,$la)=@_;
>       $ipivot=@num[$fi];
>       $spl=splitpoint(@num,$fi,$la,$pivot);
>       $wi=spl-1;
>       $ww=$spl+1;
>       quicksort(@num,$fi,$wi);
>       quicksort(@num,$ww,$la);
> }
> sub splitpoint(\@$$$)
> {
>       local(@nu,$fn,$ln,$pi)=@_;
>       while($fn < $ln)
>       {
>               if(@nu[$fn] < $pi)
>               {
>                       $fn=$fn+1;
>               }
>               if(@nu[$ln] > $pi)
>               {
>                       $ln=$ln-1;
>               }
>               $tm=@nu[$fn];
>               @nu[$fn]=@nu[$ln];
>               @nu[$ln]=$tm;
>       }
> return($fn);
> }
>
>

-- 
                ####################################
                #                                  #
                # SANILKUMAR.M.M                   #
                # S4 CSE                           #
                # REGIONAL ENGINEERING COLLEGE     #
                # CALICUT - KERALA                 #
                #                                  #
                ####################################


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