# 櫛ソート11 コムソート11 Comb Sort11
# 引数 値 (\@Price)
# 戻り値 コムソート11 (@CombSort11)
sub COMBSORT11{
	my ($Price) = @_;
	my @CombSort11 = @$Price;
	my $h = int(@$Price / 1.3);
	my $Count = @$Price - 1;
	
	# 配列数の確認
	if($Count < 0){
		return 0;
	}
	
	# 昇順ソート
	while(1 <= $h){
		$h = 11 if(($h == 9) || ($h ==10));

		for(my $i = 0; $i + $h <= $Count; $i++){
			if($CombSort11[$i] > $CombSort11[$i + $h]){
				# 櫛ソート11 コムソート11 Comb Sort
				($CombSort11[$i + $h], $CombSort11[$i]) = ($CombSort11[$i], $CombSort11[$i + $h]);
			}
		}
	
		$h = int($h / 1.3);
	}
	
	return @CombSort11;
}