科学网

 找回密码
  注册
Use MergeSort to Count Inversions by Perl
李长昊 2012-11-9 11:11
上篇博文实现了归并排序,现将其修改既能排序,又能对逆序数计数。 #!usr/bin/perl -w if(!open MYFILE,'/Users/Sky/Desktop/data.txt') { print "Cannot open the source file!"; } $t=0; foreach(MYFILE) { $a =$_;   ...
个人分类: Algorithms|3261 次阅读|没有评论
Realize MergeSort with Perl
李长昊 2012-11-9 00:09
第一次发博文,希望各位老师多多指导! 本人最近在学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; { &nbs ...
个人分类: Algorithms|3534 次阅读|没有评论

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-5-1 13:49

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部