Реализации алгоритмов/Сортировка/Слиянием: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 253:
==[[w:Perl|Perl]]==
<big><source lang="perl">
@out=(5,2,8,9,4,2,7,9,4,1,6,9,0);
sub sortM{
my($array,$first,$last)=@_;
my$middle=int(($
sortM($array,$middle+1,$last);
my$j=0;
▲ my$middle=int(($last+$first)/2);
$work[$j++]=$$array[$_]for($first..$last);
}else{
▲ if (($j < $n) && (($k == (($last-$first)+1)) || ($work[$j] lt $work[$k])))
▲ $$array[$i]=$work[$j++]
}
}
}
}
</source></big>
|