this program is not working please help me
for(my $i=0;$i<3;$i++)
{
my $r=$i+1;
print("Enter the $r number");
local$a[$i]=<STDIN>;
}
$first=0;
$last=2;
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]
