博文
Realize MergeSort with Perl
|||
第一次发博文，希望各位老师多多指导！
https://m.sciencenet.cn/blog-752323-630654.html
下一篇：Use MergeSort to Count Inversions by Perl
本人最近在学Perl语言，并试图用Perl实现计算机的一些算法，现用Perl实现了归并排序，有什么不好的地方，希望大家能帮忙指出来。
#!usr/bin/perl -w
if(!open MYFILE,'/Users/Sky/Desktop/data.txt')#Open file handle-MYFILE to connect source file which need to sort;
{
print "Cannot open the source file!";
}
$t=0;
foreach(<MYFILE>)#output the data of source file to array @a;
{
$a[$t]=$_;
$t++;
}
close(MYFILE);
$a=@a;#the number of @a;
print &MergeSort(0,$a-1,@a);#output @a which has been sorted;
sub MergeSort#split the array into 2 parts;
{
my($f,$r,@array)=@_;
my $mi;
if($f<$r)
{
$mi=int(($f+$r)/2);
@array=&MergeSort($f,$mi,@array);#recur itself;
@array=&MergeSort($mi+1,$r,@array);
@array=&Merge($f,$mi,$r,@array);#call merge sub_function;
}
return @array;
}
sub Merge#merge the 2 parts into the only array @arra;
{
my($f,$mi,$r,@arra)=@_;
$i=$f;
$j=$mi+1;
$k=0;
my @arr=();#for the sorted sequence;
while($i<=$mi && $j<=$r)
{
if($arra[$i]<=$arra[$j])
{
$arr[$k++]=$arra[$i++];
}else
{
$arr[$k++]=$arra[$j++];
}
}
while($i<=$mi)
{
$arr[$k++]=$arra[$i++];
}
while($j<=$r)
{
$arr[$k++]=$arra[$j++];
}
$i=$f;
foreach(@arr)
{
$arra[$i++]=$_;
}
return @arra;
}
不知怎么回事，有些符号，不能正常显示。现提供源文件。merge_sort.pl
https://m.sciencenet.cn/blog-752323-630654.html
下一篇：Use MergeSort to Count Inversions by Perl
扫一扫，分享此博文
全部作者的其他最新博文
全部精选博文导读
相关博文
- • Minerals线下恳谈会：履践致远、与时偕行——对话中国科学院广州地球化学研究所期刊合作学者
- • 聚英才 建高地 | 北京理工大学“特立青年学者”全球招聘开启
- • 700年后日本或濒临灭绝？日本学者推算预测：届时或仅剩1名15岁以下孩子
- • [转载]【同位素视角】非英语母语学者如何区分’e.g.’, ‘i.e.’, ‘namely’与‘such as’等混淆难题
- • 美国佐治亚大学等机构学者：刈割策略对Bulldog 805紫花苜蓿+Tifton 85狗牙根混播草地产量及品质的影响
- • 美国堪萨斯州立大学、密苏里大学等机构学者研究成果：土壤水分管理策略和品种多样性对紫花苜蓿产量、营养品质和农场盈利能力的影