睡眠排序法代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】睡眠排序法

作者:dezai / 发布于2014/9/12/ 560

睡眠排序算法是一个天才程序员发明的，想法很简单，就是针对数组里的不同的数开多个线程，每个线程根据数的大小睡眠，自然睡的时间越长的，数越大，哈哈，搞笑吧，这种算法看起来很荒唐，但实际上很天才，它可以充分利用多核cpu进行计算


	===Multi-threaded Perl version===
	#! /usr/bin/perl -w
	
	use strict;
	use threads;
	
	my ($i, @thrs) = (0);
	
	foreach (@ARGV) {$thrs[$i++] = threads->create(\&sorter, $_)}
	$i = 0;
	foreach (@ARGV) {$thrs[$i++]->join()}
	
	sub sorter {sleep($_[0]); print $_[0], "\n"}
	===End of Sleep Sort===

　　

试试其它关键字

　睡眠排序法　

同语言下

可能有用的

dezai贡献的其它代码(1065)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3