perl heapSort
来源:互联网 发布:制作图文并茂的软件 编辑:程序博客网 时间:2024/05/16 06:01
sub heapSort{
my %hashMap=@_;
my $heap = Heap::Fibonacci::Fast->new();
my $num = 0;
foreach my $kk (keys %hashMap) {
my $k = $hashMap{$kk};
my $v = $kk;
if( $num < 1000 ){
$heap->key_insert($k, $v);
$num ++;
}else{
my $top_key = $heap->top_key();
if( $k > $top_key){
$heap->extract_top();
$heap->key_insert($k, $v);
}
}
}
my $k_top;
my $v_top;
my @rstRank=();
while( defined( $k_top = $heap->top_key())) {
$v_top = $heap->extract_top();
my $count = $k_top;
my $name = $v_top;
my $v = {"name"=>$name,"count"=>$count};
push(@rstRank,$v);
}
@rstRank;
}
- perl heapSort
- Heapsort
- Heapsort
- HeapSort
- heapsort
- HeapSort
- HeapSort
- HeapSort
- heapsort
- heapsort
- heapsort
- HeapSort
- Heapsort
- HeapSort
- heapSort
- HeapSort
- heapSort
- HeapSort
- OpenCore支持OpenMax系列之一
- 毛俊个人演唱会
- ORACLE函数TO_CHAR以及数字转换格式
- 程序员的美:极致与疯狂
- Objective-C iPhone起步开发的8条建议和技巧
- perl heapSort
- 学习OSTU方法
- 泛型编程:源起、实现与意义_刘未鹏
- Java IO流 过滤流和包装流
- Android2.2 Vold 分析(三)---Vold 中 volumeManager分析
- left join,inner join,right join,cross join,full join的区别
- PowerShell 学习笔记
- 在 Linux 系统中,有几个目录是特别需要注意的,以下提供几个需要注意的目录,以及预设相关的用途:
- struts2上传文件