適当に勘で書く。Perlのスライスは便利だなあと思う。バブルソート。 for($i=$#a;$i>0;--$i){ for($j=0;$j<$i;++$j){ @a[$j,$j+1] = @a[$j+1,$j] if($a[$j]>$a[$j+1]); } } 「一番簡単なソート」的なあつかいをされていることがあるけど、そんなにわかりやす…