トップ «前の日記(■2011-04-30) 最新 次の日記(■2011-05-24)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|
2022|03|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2011-05-20

* [Perl] sleep sortのithread版B!

 常識を覆すソートアルゴリズム!その名も"sleep sort"!から。 threads版がないのが不憫なのでここにひっそり書いておきます。

 use 5.010;
 use strict;
 use warnings;
 use threads;
 use threads::shared;
 use Time::HiRes qw(sleep);
 
 my @thrs;
 my @values : shared;
 
 for ( @ARGV ) {
     push @thrs, threads->new(sub {
         sleep $_[0] / 10;
         push @values, $_[0];
     }, $_);
 }
 
 $_->join for @thrs;
 
 say join( " ", @values );

様々なsleep sort

[]