{"id":2258,"date":"2009-04-02T23:56:00","date_gmt":"2009-04-02T14:56:00","guid":{"rendered":"https:\/\/hdmr.org\/d\/?e=325"},"modified":"2009-04-02T23:56:00","modified_gmt":"2009-04-02T14:56:00","slug":"blogn-325","status":"publish","type":"post","link":"https:\/\/hdmr.org\/d\/?e=325","title":{"rendered":"\u4fbf\u5229\u306a\u30bd\u30fc\u30c8\u3092\u4f7f\u3044\u305f\u3044\u3088\u306d"},"content":{"rendered":"

\u30a4\u30c6\u30ec\u30fc\u30bf\u306e\u30bd\u30fc\u30c8\u3057\u3088\u3046\u3068\u601d\u3063\u3066\u30bd\u30fc\u30c8\u306b\u3064\u3044\u3066\u8abf\u3079\u3066\u3044\u305f\u3002
\u30bd\u30fc\u30c8\u306e\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3068\u3044\u3046\u3068\u4e16\u306e\u4e2d\u306b\u306f\u3044\u308d\u3044\u308d\u3042\u308b\u3082\u306e\u3067\u3059\u3002
\u6700\u7d42\u7684\u306b\u306f\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u3092\u63a1\u7528\u3057\u305f\u308f\u3051\u3067\u3059\u304c\u3001\u306a\u304b\u306a\u304b\u60a9\u307e\u3057\u3044\u3082\u306e\u3067\u3059\u3002
\u5b9f\u969b\u306b\u4f5c\u3063\u3066\u8abf\u3079\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u305f\u3002\u4f8b\u306b\u3088\u3063\u3066Perl\u3067\u66f8\u3044\u3066\u3042\u308b\u3002@a\u3092\u6570\u5b57\u306e\u5927\u5c0f\u3067\u30bd\u30fc\u30c8\u3059\u308b\u3053\u3068\u3092\u8003\u3048\u3066\u3044\u308b\u3002<\/p>\n

\n

\u8ab0\u3067\u3082\u77e5\u3063\u3066\u3044\u308b\u3001\u3068\u3044\u3046\u3068\u305d\u308c\u306f\u30a6\u30bd\u3060\u3051\u3069\u3001\u3042\u307e\u308a\u306b\u6709\u540d\u306a\u306e\u304c\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u3002<\/p>\n

my @a=(93,18,11,14,36,86,24,89,82,10,31,33,42,3,0,81,40,40,21,56);
for my $i(0..$#a-1){
  for my $j($i+1..$#a){
    if($a[$i]>$a[$j]){
      my $t=$a[$i];
      $a[$i]=$a[$j];
      $a[$j]=$t;
    }
  }
}<\/pre>\n
\u307e\u3041\u306a\u3093\u3067\u3053\u308c\u3067\u30bd\u30fc\u30c8\u3067\u304d\u308b\u3093\u3060\u3068\u3044\u3046\u306e\u306f\u3088\u304f\u308f\u304b\u3089\u306a\u3044\u3082\u306e\u3067\u3059\u304c\u3001
\u3068\u306b\u304b\u304f\u624b\u5f53\u305f\u308a\u6b21\u7b2c\u9806\u756a\u3092\u5165\u308c\u66ff\u3048\u3066\u3044\u304f\u3088\u3046\u306a\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3067\u3059\u306d\u3002
\u3068\u3044\u3046\u308f\u3051\u3067\u3068\u3066\u3064\u3082\u306a\u304f\u9045\u3044\u3068\u8a55\u5224\u3002
\u5165\u308c\u66ff\u3048\u90e8\u5206\u3092\u30ea\u30b9\u30c8\u4ee3\u5165\u3067\u66f8\u3044\u3066\u306a\u3044\u306e\u306f\u3061\u3087\u3063\u3068\u9045\u3044\u304b\u3089\u3002
\u30e9\u30f3\u30c0\u30e0\u306a10000\u500b\u306e\u8981\u7d20\u3092\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u3059\u308b\u5b9f\u9a13\u3067\u306f\u3001\u5b9f\u306b5000\u4e07\u56de\u306e\u6bd4\u8f03\u30682261\u4e07\u56de\u306e\u5165\u308c\u66ff\u3048\u3092\u3057\u3066\u3044\u305f\u3002
\u6240\u8981\u6642\u9593\u306f50.77\u79d2\u3068\u3001\u5acc\u306b\u306a\u308b\u307b\u3069\u6642\u9593\u304c\u304b\u304b\u308b\u3002\u8981\u7d20\u6570\u306e2\u4e57\u306b\u6bd4\u4f8b\u3059\u308b\u6642\u9593\u304c\u304b\u304b\u308b\u3068\u8a00\u308f\u308c\u3066\u3044\u308b\u3002<\/p>\n
\n
\u3053\u308c\u3068\u540c\u3058\u304f\u5acc\u306b\u306a\u308b\u307b\u3069\u9045\u3044\u306e\u304c\u633f\u5165\u30bd\u30fc\u30c8\u3002\u3053\u3061\u3089\u306e\u65b9\u304c\u308f\u304b\u308a\u3084\u3059\u3044\u304b\u3082\u3002<\/p>\n
for my $i(1..$#a){
  my $c=splice(@a,$i,1);
  my $j=$i;
  for(;$j>0;$j--){
    last if $a[$j-1]<=$c;
  }
  splice(@a,$j,0,$c);
}<\/pre>\n
\u524d\u304b\u3089\u8981\u7d20\u3092\u5f15\u3063\u3053\u629c\u3044\u3066\u3001\u305d\u306e\u5f15\u3063\u3053\u629c\u3044\u305f\u3068\u3053\u308d\u304b\u3089\u524d\u306b\u9806\u306b\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3001\u9069\u5f53\u306a\u3068\u3053\u308d\u306b\u633f\u5165\u3059\u308b\u3068\u3002
\u9069\u5f53\u306a\u3068\u3053\u308d\u3068\u3044\u3046\u306e\u306f\u3001\u524d\u306e\u8981\u7d20\u304c\u81ea\u5206\u3068\u540c\u3058\u304b\u5c0f\u3055\u3044\u3068\u3053\u308d\u3067\u3059\u306d\u3002
1,3,4,6\u3068\u3042\u308b\u3068\u3053\u308d\u306b4\u3092\u5165\u308c\u308b\u306a\u3089\u3001\u4eca\u3042\u308b4\u306e\u524d\u304c\u3061\u3087\u3046\u3069\u3044\u3044\u3068\u3002\u305d\u3046\u3044\u3046\u3053\u3068\u3067\u3059\u3002
\u5b9f\u306f\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u3088\u308a\u3082\u5c11\u3057\u6027\u80fd\u304c\u3044\u3044\u3089\u3057\u304f\u30012525\u4e07\u56de\u306e\u6bd4\u8f03\u3067\u6e08\u3093\u3067\u3044\u308b\u3002
\u633f\u5165\u306e\u56de\u6570\u306f9999\u56de\u3060\u304c\u3001\u633f\u5165\u306f\u5165\u308c\u66ff\u3048\u3088\u308a\u3082\u3081\u3093\u3069\u304f\u3055\u3044\u3067\u3059\u304b\u3089\u306d\u3002
\u6642\u9593\u306f\u3050\u3063\u3068\u77ed\u7e2e\u3055\u308c\u306620.06\u79d2\u3002\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u304c\u3042\u307e\u308a\u306b\u9045\u3044\u306e\u306f\u3001\u591a\u5206Perl\u306e\u30b3\u30fc\u30c9\u306e\u5b9f\u884c\u306b\u6642\u9593\u304c\u304b\u304b\u3063\u3066\u308b\u304b\u3089\u3058\u3083\u306a\u3044\u304b\u306a\u3068\u3002
\u591a\u5206C\u3067\u4f5c\u3063\u305f\u3082\u306e\u306a\u3089\u3070\u305d\u3046\u3082\u5dee\u306f\u306a\u3044\u3093\u3058\u3083\u306a\u3044\u304b\u306a\u3002<\/p>\n
\n
\u9078\u629e\u30bd\u30fc\u30c8\u3063\u3066\u306e\u3082\u3042\u308b\u3089\u3057\u3044\u3002\u5c0f\u3055\u3044\u9806\u306b\u9078\u3093\u3067\u30bd\u30fc\u30c8\u3059\u308b\u304b\u3089\u9078\u629e\u30bd\u30fc\u30c8\u3068\u3044\u3046\u3089\u3057\u3044\u3002<\/p>\n
for my $i(0..$#a-1){
  my $min=$i+1;
  for my $j($i+2..$#a){
    $min=$j if $a[$min]>$a[$j];
  }
  ($a[$i],$a[$min])=($a[$min],$a[$i]);
}<\/pre>\n
0\u756a\u76ee\u306e\u8981\u7d20\u3092\u542b\u3080\u53f3\u5074\u306e\u8981\u7d20\u3067\u6700\u5c0f\u306e\u8981\u7d20\u30680\u756a\u76ee\u306e\u8981\u7d20\u3092\u5165\u308c\u66ff\u3048\u3066\u2026
\u3068\u3044\u3046\u306e\u3092\u6700\u5f8c\u307e\u3067\u3084\u3063\u3066\u3044\u304f\u308f\u3051\u3067\u3059\u306d\u3002
10000\u500b\u30bd\u30fc\u30c8\u3059\u308b\u30685000\u4e07\u56de\u306e\u6bd4\u8f03\u304c\u5fc5\u8981\u306a\u306e\u306f\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u3068\u4e00\u7dd2\u3060\u3051\u3069\u30019999\u56de\u306e\u5165\u308c\u66ff\u3048\u3067\u6e08\u3080\u3002
\u306a\u306e\u3067\u5165\u308c\u66ff\u3048\u304c\u9045\u3044\u3068\u304d\u306b\u306f\u4f7f\u3048\u308b\u3089\u3057\u3044\u3002
\u305f\u3060\u3057\u3001\u3053\u306e\u30bd\u30fc\u30c8\u306b\u306f\u3061\u3087\u3063\u3068\u554f\u984c\u304c\u3042\u308b\u3002\u3068\u3044\u3046\u306e\u3082\u5b89\u5b9a\u30bd\u30fc\u30c8\u3067\u306f\u306a\u3044\u3093\u3067\u3059\u306d\u3002
\u5b89\u5b9a\u30bd\u30fc\u30c8\u3068\u3044\u3046\u306e\u306f\u7b49\u3057\u3044\u8981\u7d20\u304c\u3042\u3063\u305f\u3089\u3001\u5143\u306e\u4e26\u3073\u9806\u3068\u4e00\u7dd2\u306b\u306a\u308b\u30bd\u30fc\u30c8\u306e\u3053\u3068\u3002
\u7b49\u3057\u3044\u3068\u3044\u3046\u306e\u306f\u6bd4\u8f03\u3059\u308c\u3070\u5927\u304d\u304f\u3082\u5c0f\u3055\u304f\u3082\u306a\u3044\u3068\u3044\u3046\u610f\u5473\u306d\u3002\u5168\u304f\u4e00\u7dd2\u306e\u8981\u7d20\u304b\u306f\u77e5\u3089\u306a\u3044\u3002
\u4f8b\u3048\u3070\u3001\u5c0f\u6570\u306e\u914d\u5217\u304c\u4e0e\u3048\u3089\u308c\u3066\u6574\u6570\u90e8\u306e\u5927\u5c0f\u3060\u3051\u3067\u30bd\u30fc\u30c8\u3059\u308b\u3068\u304d\u3002<\/p>\n
@a=(6.58 , 4.59 , 3.71 , 7.48 , 6.18 , 4.89 , 4.67 , 1.55 , 5.60 , 4.49);
for my $i(0..$#a-1){
  my $min=$i+1;
  for my $j($i+2..$#a){
    $min=$j if int($a[$min])>int($a[$j]);
  }
  ($a[$i],$a[$min])=($a[$min],$a[$i]);
}<\/pre>\n
\u3053\u306e@a\u3067\u306f\u6574\u6570\u90e8\u304c4\u3067\u3042\u308b\u5c0f\u6570\u304c4\u3064\u3042\u308b\u30024.59,4.89,4.67,4.49\u306e\u9806\u306b\u306a\u3089\u3093\u3067\u307b\u3057\u3044\u3002
\u3057\u304b\u3057\u5b9f\u969b\u306f\u3053\u306e\u7d50\u679c\u306f4.89,4.59,4.67,4.49\u306e\u3088\u3046\u306b\u5143\u3068\u306f\u5c11\u3005\u9055\u3046\u4e26\u3073\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002
\u306a\u3093\u3067\u304b\u3068\u3044\u3048\u3070\u3001\u96a3\u306e\u8981\u7d20\u4ee5\u5916\u3068\u5165\u308c\u66ff\u3048\u3092\u884c\u3046\u304b\u3089\u3002
\u50d5\u306f\u5b89\u5b9a\u306a\u30bd\u30fc\u30c8\u304c\u5927\u597d\u304d\u306a\u306e\u3067\u3001\u5b89\u5b9a\u3067\u306a\u3044\u30bd\u30fc\u30c8\u306f\u4f7f\u308f\u306a\u3044\u3053\u3068\u306b\u3057\u3088\u3046\u3002<\/p>\n
\n
\u3053\u3053\u304b\u3089\u306f\u982d\u306e\u3044\u3044\u30bd\u30fc\u30c8\u3002
\u3044\u308d\u3044\u308d\u3042\u308b\u3093\u3060\u304c\u3001\u7279\u306b\u6709\u540d\u306a\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u3068\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u3060\u3051\u3002
\u4ed6\u306b\u3082\u3001\u30d0\u30d6\u30eb\u30bd\u30fc\u30c8\u306e\u6539\u826f\u306e\u30b3\u30e0\u30bd\u30fc\u30c8\u3068\u304b\u3042\u308b\u3093\u3060\u3051\u3069\u306d\u3002
\u307e\u305a\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u3067\u3059\u306d\u3002\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u306fPerl 5.8\u4ee5\u964d\u3067\u306f\u6a19\u6e96\u3067\u4f7f\u308f\u308c\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002
\u4ee5\u524dPerl 5.6\u304b\u3089\u4f7f\u308f\u308c\u3066\u308b\u3068\u304b\u66f8\u3044\u305f\u3088\u3046\u306a\u6c17\u304c\u3059\u308b\u3051\u3069\u3001\u9593\u9055\u3063\u3066\u3044\u305f\u3088\u3046\u3067\u3059\u3002
\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u306f\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u3088\u308a\u306f\u9045\u3044\u304b\u3082\u77e5\u308c\u306a\u3044\u3051\u3069\u3001\u60aa\u304f\u306a\u3044\u3068\u3044\u3046\u308f\u3051\u3067\u8a55\u5224\u3089\u3057\u3044\u3002<\/p>\n
sub msort{
  return @_ if(@_==1);
  my $m=int(@_\/2);
  my @a=msort(@_[0..$m-1]);
  my @b=msort(@_[$m..$#_]);
  my @r=();
  while(@a && @b){
    if($a[0]<$b[0]){ push(@r,shift(@a)); }
    else           { push(@r,shift(@b)); }
  }
  return (@r,@a,@b);
}
@a=msort(@a);<\/pre>\n
\u518d\u5e30\u3067\u3084\u308a\u307e\u3059\u3088\u3002\u3084\u308a\u65b9\u306f\u7c21\u5358\u3067\u534a\u5206\u306b\u5206\u5272\u3057\u3066\u3001\u305d\u308c\u305e\u308c\u3092\u30bd\u30fc\u30c8\u3059\u308b\u3002
\u305d\u3057\u3066\u305d\u306e\u30bd\u30fc\u30c8\u3057\u305f\u534a\u5206\u305a\u3064\u3092\u3001\u982d\u304b\u3089\u5c0f\u3055\u3044\u65b9\u3092\u9078\u3093\u3067\u5f15\u3063\u3053\u629c\u3044\u3066\u3044\u304f\u3068\u3002
\u4f8b\u3048\u30707,1,5,2,8,6,3,9\u3068\u4e26\u3093\u3067\u305f\u3089\u3001\u534a\u5206\u306b\u5272\u3063\u3066\u30bd\u30fc\u30c8\u306b\u304b\u3051\u308b\u3068\u3002
\u3059\u308b\u30681,2,5,7\u30683,6,8,9\u304c\u5f97\u3089\u308c\u308b\u306e\u3067\u3001\u59cb\u3081\u306e\u8981\u7d20\u540c\u58eb\u3092\u6bd4\u8f03\u3057\u3066\u5c0f\u3055\u30441\u3092\u307e\u305a\u9078\u3076\u3068\u3002
\u6b21\u306b2,5,7\u30683,6,8,9\u3068\u306a\u3063\u3066\u30012\u304c\u9078\u3070\u308c\u3001\u6b21\u306b5,7\u30683,6,8,9\u3068\u306a\u3063\u30663\u304c\u9078\u3070\u308c\u3066\u2026
\u3068\u3084\u3063\u3066\u3044\u304f\u3068\u3001\u524d\u306e\u30b0\u30eb\u30fc\u30d7\u304c\u5168\u90e8\u9078\u3070\u308c\u3066\u3001\u5f8c\u308d\u306e\u30b0\u30eb\u30fc\u30d7\u306e8,9\u304c\u6b8b\u3063\u3066\u3057\u307e\u3046\u3002
\u305d\u3053\u307e\u3067\u6765\u308c\u3070\u3001\u4eca\u307e\u3067\u4e26\u3079\u305f\u5206\u306b\u4f59\u308a\u3092\u304f\u3063\u3064\u3051\u308c\u3070\u7d42\u308f\u308a\u3002
\u6700\u5f8c\u306e\u6c17\u5473\u306e\u60aa\u3044(@r,@a,@b)\u306f\u3001@r\u306b@a\u3068@b\u3092\u304f\u3063\u3064\u3051\u308b\u3068\u3044\u3046\u3053\u3068\u304c\u66f8\u3044\u3066\u3042\u308b\u3002
@a\u304b@b\u306f\u5168\u90e8\u7121\u304f\u306a\u3063\u3066\u308b\u306f\u305a\u3060\u304b\u3089\u3001\u6b8b\u3063\u305f\u65b9\u3092\u304f\u3063\u3064\u3051\u308b\u3068\u3044\u3046\u610f\u5473\u306b\u306a\u308a\u307e\u3059\u3088\u306d\u3002
\u306a\u3093\u3066\u611f\u3058\u3067\u3059\u3070\u3089\u3057\u304f\u9ad8\u901f\u3067\u3059\u3002\u306a\u3093\u306812\u4e07\u56de\u306e\u6bd4\u8f03\u3067\u6e08\u307f\u307e\u3059\u3002\u6240\u8981\u6642\u9593\u306f0.23\u79d2\u3068\u6bd4\u3079\u3082\u306e\u306b\u306a\u3089\u306a\u3044\u3050\u3089\u3044\u901f\u3044\u3002
100\u4e07\u500b\u306e\u8981\u7d20\u306e\u4e26\u3073\u66ff\u3048\u3082\u73fe\u5b9f\u7684\u306a\u6642\u9593\u3067\u3067\u304d\u3066\u3057\u307e\u3063\u305f\u3002\u6240\u8981\u6642\u9593\u306f45.86\u79d2\u30011867\u4e07\u56de\u306e\u6bd4\u8f03\u3067\u6e08\u3093\u3067\u3044\u308b\u3002
\u975e\u5e38\u306b\u8981\u7d20\u6570\u304c\u591a\u3051\u308c\u3070\u6709\u5229\u306a\u30bd\u30fc\u30c8\u3067\u3059\u306d\u3002\u307e\u3041\u5c11\u306a\u304f\u3066\u3082\u60aa\u304f\u306f\u306a\u3044\u3068\u601d\u3044\u307e\u3059\u3051\u3069\u3002
\u3053\u306e\u30bd\u30fc\u30c8\u306e\u3044\u3044\u3068\u3053\u308d\u306f\u3001\u305f\u3060\u534a\u5206\u306b\u5272\u3063\u3066\u305d\u308c\u305e\u308c\u3092\u5225\u3005\u306b\u8a08\u7b97\u3057\u3066\u304f\u3063\u3064\u3051\u308b\u3060\u3051\u306a\u306e\u3067\u4e26\u5217\u51e6\u7406\u306b\u5411\u304f\u305d\u3046\u3060\u3002
\u306a\u306e\u3067\u5b9f\u969b\u306f\u3082\u3063\u3068\u3082\u3063\u3068\u901f\u304f\u3067\u304d\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3002
\u305d\u3093\u306a\u306b\u4ed5\u7d44\u307f\u3082\u96e3\u3057\u304f\u306a\u3044\u3057\u3044\u3044\u3067\u3059\u306d\u3002
\u305f\u3060\u6b20\u70b9\u306f\u3001\u4e26\u3073\u66ff\u3048\u306e\u305f\u3081\u306b\u30c7\u30fc\u30bf\u3068\u306f\u5225\u306b\u30e1\u30e2\u30ea\u3092\u98df\u3046\u3053\u3068\u3002
\u307e\u3041\u4eca\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u3067\u6c17\u306b\u3059\u308b\u3068\u3053\u308d\u3067\u306f\u306a\u3044\u3067\u3059\u3051\u3069\u3002<\/p>\n
\n
\u6700\u5f8c\u306b\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u3002\u901f\u3044\u3068\u8a55\u5224\u3060\u304c\u3001\u5b9f\u306b\u96e3\u3057\u3044\u3002<\/p>\n
sub qsort{
  return @_ if(@_<2);
  my $p=$_[rand(@_)];
  my ($l,$r)=(0,$#_);
  while(1){
    for(;$_[$l]<$p;$l++){}
    for(;$_[$r]>$p;$r--){}
    last if($l>=$r);
    ($_[$l],$_[$r])=($_[$r],$_[$l]);
    $l++; $r--;
  }
  qsort(@_[0 ..$l-1]);
  qsort(@_[$r+1..$#_]);
  return @_;
}
@a=qsort(@a);<\/pre>\n
\u5b9f\u306f\u7406\u5c48\u306f\u305d\u3046\u306f\u96e3\u3057\u304f\u306a\u3044\u3093\u3067\u3059\u3088\u3002\u9069\u5f53\u306a\u5024\u3092\u9078\u3093\u3067\u3001\u305d\u308c\u3088\u308a\u5c0f\u3055\u3044\u306e\u3068\u5927\u304d\u3044\u306e\u306b\u5206\u3051\u3066\u3001
\u305d\u308c\u305e\u308c\u3067\u30bd\u30fc\u30c8\u3059\u308b\u3060\u3051\u3067\u3059\u3002\u9069\u5f53\u306a\u5024\u306f\u914d\u5217\u4e2d\u304b\u3089\u30e9\u30f3\u30c0\u30e0\u306b\u9078\u3093\u3067\u308b\u3002
\u554f\u984c\u306f\u305d\u306e\u5c0f\u3055\u3044\u306e\u3068\u5927\u304d\u3044\u306e\u306b\u5206\u3051\u308b\u3068\u3053\u308d\u3067\u3059\u3002
\u3053\u3053\u3067\u8ce2\u3044\u65b9\u6cd5\u3092\u8003\u3048\u3066\u3084\u3063\u305f\u3089\u4e0a\u306b\u66f8\u3044\u305f\u3088\u3046\u306b\u306a\u308b\u306e\u3060\u304c\u3001\u3053\u308c\u4e21\u7aef\u304b\u3089\u898b\u3066\u3044\u304f\u306e\u306d\u3002
\u306a\u306e\u3067\u5b89\u5b9a\u30bd\u30fc\u30c8\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002
\u305d\u308c\u3068\u554f\u984c\u306a\u306e\u304c\u3001\u9069\u5f53\u306a\u5024\u306e\u9078\u3073\u65b9\u306a\u3093\u3067\u3059\u306d\u3002\u9069\u5f53\u306a\u5024\u3092\u3044\u3044\u52a0\u6e1b\u306b\u9078\u3076\u3068\u3048\u3089\u3044\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002
\u3060\u304b\u3089\u8981\u7d20\u6570\u304c\u5c11\u306a\u3044\u3068\u304d\u306f\u4ed6\u306e\u30bd\u30fc\u30c8\u3092\u4f7f\u3046\u3068\u901f\u3044\u3057\u3046\u307e\u304f\u3044\u304f\u3068\u3002
\u3068\u3044\u3046\u308f\u3051\u3067\u3053\u3093\u306a\u65b9\u6cd5\u3067\u5b9f\u9a13\u3057\u3066\u307f\u305f\u3002<\/p>\n
sub mysort{
  return @_        if(@_<2);
  return qsort(@_) if(@_>8);
  for my $i(1..$#_){
    for(my $j=$i;$j>0;$j--){
      last if $_[$j-1]<=$_[$j];
      ($_[$j-1],$_[$j])=($_[$j],$_[$j-1]);
    }
  }
  return @_;
}
sub qsort{
  return @_ if(@_<2);
  my $p=$_[rand(@_)];
  my ($l,$r)=(0,$#_);
  while(1){
    for(;$_[$l]<$p;$l++){}
    for(;$_[$r]>$p;$r--){}
    last if($l>=$r);
    ($_[$l],$_[$r])=($_[$r],$_[$l]);
    $l++; $r--;
  }
  mysort(@_[0 ..$l-1]);
  mysort(@_[$r+1..$#_]);
  return @_;
}
qsort(@a);<\/pre>\n
mysort\u3067\u306f8\u8981\u7d20\u4ee5\u4e0b\u306f\u633f\u5165\u30bd\u30fc\u30c8\u3067\u30bd\u30fc\u30c8\u3057\u3066\u3044\u308b\u3002
\u3061\u306a\u307f\u306b\u3053\u306e\u633f\u5165\u30bd\u30fc\u30c8\u306fsplice\u3092\u4f7f\u3063\u3066\u3044\u306a\u3044\u3002\u307e\u3041\u3053\u308c\u304c\u3088\u304f\u3042\u308b\u4f8b\u3067\u3059\u3002
\u3053\u308c\u3060\u306810000\u500b\u306e\u30bd\u30fc\u30c8\u306f0.19\u79d2\u3067\u3084\u308b\u3002\u6bd4\u8f03\u56de\u6570\u306f16\u4e07\u56de\u3067\u3059\u306d\u3002
\u633f\u5165\u30bd\u30fc\u30c8\u4f75\u7528\u3057\u306a\u3044\u5834\u54080.22\u79d2\u7a0b\u5ea6\u304b\u304b\u3063\u3066\u308b\u306e\u3067\u3001\u3044\u304f\u3089\u304b\u901f\u304f\u306a\u3063\u3066\u308b\u306e\u306f\u78ba\u304b\u3002
100\u4e07\u500b\u3060\u3068\u300137.86\u79d2\u3067261\u4e07\u56de\u306e\u6bd4\u8f03\u3092\u884c\u3063\u3066\u3044\u308b\u3002
\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u3088\u308a\u306f\u901f\u3044\u3053\u3068\u304c\u308f\u304b\u308b\u3002<\/p>\n
\n
\u3057\u304b\u3057\u7d50\u5c40\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u306b\u3057\u305f\u306e\u306f\u3001\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u304c\u3081\u3093\u3069\u304f\u3055\u3044\u3068\u3044\u3046\u306e\u304c\u5927\u304d\u3044\u306e\u3060\u3051\u3069\u3001
\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u306f\u6765\u305f\u30c7\u30fc\u30bf\u304b\u3089\u9806\u756a\u306b\u51e6\u7406\u3057\u3066\u3044\u3051\u308b\u3093\u3067\u3059\u306d\u3002
\u30a4\u30c6\u30ec\u30fc\u30bf\u3067\u9806\u756a\u306b\u8aad\u3093\u3067\u3044\u304f\u3068\u304d\u30012\u3064\u53d7\u3051\u53d6\u3063\u3066\u4e26\u3073\u66ff\u3048\u3066\u30012\u3064\u306e\u30d6\u30ed\u30c3\u30af\u304c2\u3064\u3067\u304d\u305f\u3089\u3001
\u305d\u306e2\u3064\u306e\u30d6\u30ed\u30c3\u30af\u3092\u30bd\u30fc\u30c8\u3057\u3066\u304f\u3063\u3064\u3051\u30664\u3064\u306e\u30d6\u30ed\u30c3\u30af\u3001\u540c\u69d8\u306b\u3057\u30664\u3064\u306e\u30d6\u30ed\u30c3\u30af\u304c\u3067\u304d\u305f\u30898\u3064\u306b\u2026
\u3068\u3044\u3046\u3053\u3068\u304c\u3067\u304d\u3066\u697d\u3057\u3044\u304b\u3089\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u306b\u3057\u305f\u3002
\u3061\u306a\u307f\u306b\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u304c\u5b89\u5b9a\u3067\u306a\u3044\u3068\u3044\u3046\u306e\u306f\u3053\u306e\u3088\u3046\u306a\u5165\u308c\u66ff\u3048\u3067\u524d\u5f8c\u306b\u5206\u3051\u305f\u5834\u5408\u3067\u3042\u3063\u3066\u3001
\u305d\u308c\u4ee5\u5916\u306e\u65b9\u6cd5\u3067\u306f\u5b89\u5b9a\u306a\u30bd\u30fc\u30c8\u306b\u306a\u308b\u3053\u3068\u3082\u3042\u308a\u307e\u3059\u3002
\u305d\u3093\u306a\u65b9\u6cd5\u3082\u307e\u305f\u8abf\u3079\u3066\u307f\u3088\u3046\u304b\u306a\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30a4\u30c6\u30ec\u30fc\u30bf\u306e\u30bd\u30fc\u30c8\u3057\u3088\u3046\u3068\u601d\u3063\u3066\u30bd\u30fc\u30c8\u306b\u3064\u3044\u3066\u8abf\u3079\u3066\u3044\u305f\u3002\u30bd\u30fc\u30c8\u306e\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3068\u3044\u3046\u3068\u4e16\u306e\u4e2d\u306b\u306f\u3044\u308d\u3044\u308d\u3042\u308b\u3082\u306e\u3067\u3059\u3002\u6700\u7d42\u7684\u306b\u306f\u30de\u30fc\u30b8\u30bd\u30fc\u30c8\u3092\u63a1\u7528\u3057\u305f\u308f\u3051\u3067\u3059\u304c\u3001\u306a\u304b\u306a\u304b\u60a9\u307e\u3057\u3044\u3082\u306e\u3067\u3059\u3002\u5b9f\u969b\u306b\u4f5c\u3063\u3066\u8abf\u3079\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u305f […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-2258","post","type-post","status-publish","format-standard","hentry","category-computer"],"_links":{"self":[{"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=\/wp\/v2\/posts\/2258","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2258"}],"version-history":[{"count":0,"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=\/wp\/v2\/posts\/2258\/revisions"}],"wp:attachment":[{"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2258"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2258"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/hdmr.org\/d\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2258"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}