C# と VB.NET の質問掲示板

■No10996 (ハツ さん) に返信
> ■No10992 (επιστημη さん) に返信
>>N文字あるとき、1〜2^N-1 の数を二進表現にすりゃいいんじゃね?
>>
> すみません、上のは例えばの話です。
> 数字　「１　２　３　４　５」だろうが、文字「あいうえお　ああああ　ううう」だろうがなんだろうがです。
> 組み合わせの所のみ見ていただきたいです。お願いします

って、επιστημηサマの例もご自身の例えに置き換えればいいだけだと思いマスよ･･･。
例の「あ」が「あいうえお」だろうがなんだろうが、じゃないデスか。

例なので、敢えてVB.NETでεπιστημηサマの例をコード化してみました。
#ちょうど立ち上げてたのがVBだったのもありマスが。

   '// TextBox1に「あいうえお　ああああ　ううう」だろうがなんだろうがスペース区切りで入れてマス。
    Dim str() As String = Me.TextBox1.Text.Split(" ".ToCharArray)    '// 配列化
    Dim len As Long = str.Length     '// パターンの個数デス。
    Dim max As Long = 2 ^ len - 1    '// 2のべき乗(len)−1でパターン数を出しマス。 
    Dim arr(max - 1) As String       '// パターンを入れる配列デス。
    '// パターン数だけループしマス。
    For i As Long = 1 To max
        '// ２進表現にすりゃいいんじゃね部分のためのビット判定デス。
        For j As Long = len - 1 To 0 Step -1
            '// ビットが立っていればその対応する文字を加えマス。
            arr(i - 1) = IIf((i And 1 << j), str(j), "").ToString & arr(i - 1)
        Next j
    Next i

# おっしゃってる内容を、επιστημηサマのロジックに置き換えて、ぱっと書いたらこんな感じ・・（汗）
# 私はアルゴリズムの質問だと思って見てたのデスが、なんか違うコトだったのかしら。。

【追記】コードにコメントいれマス。このビット判定も数に限界ありマスね。

■No10996 (ハツ さん) に返信
> ■No10992 (επιστημη さん) に返信
>>N文字あるとき、1〜2^N-1 の数を二進表現にすりゃいいんじゃね?
>>
>>あいう
>>００１ = う
>>０１０ = い
>>０１１ = いう
>>１００ = あ
>>１０１ = あう
>>１１０ = あい
>>１１１ = あいう
> すみません、上のは例えばの話です。
> 数字　「１　２　３　４　５」だろうが、文字「あいうえお　ああああ　ううう」だろうがなんだろうがです。

納得行かない回答だからってお前らわかってねーな、みたいな発言は良くないです。

> 組み合わせの所のみ見ていただきたいです。お願いします

だから上の例でいいんじゃないのかな？

（１）入力文字列を区切り文字単位で分割する。
（２）N番目とN+1...終わりまでを文字列連結し順番に ArrayList に格納する。
（３）（２）が終わったら、N+1 番目と N+2 ... 終わり。。。を繰り返す。


で完成。文字がいくつあっても同じ処理で全ての組み合わせを List で返却できますね。

（１）で取得した配列の参照位置をちょこちょこずらしながらループ回すだけでできちゃいますよね。

入力が string input = "あ　い　う　えお　かき";

string[] array = input.split(",");

for (int i=0;i < array.length-1;i++) {
   string src = array[i];
   for (int j=i+1;j < array.length;j++) {
      arrayList.add( src + array[j] );
   }
}
//
//１文字ずつListに格納する。

//全部連結したものを最後に付加する。

完成！

array[0] と array[1] => あい
array[0] と array[2] => あう
array[0] と array[3] => あえお
array[0] と array[4] => あかき
array[1] と array[2] => いう
array[1] と array[3] => いえお
...

なんかよサゲな感じがしませんか？

　初めて投稿します。

　επιστημη さんのアルゴリズムで書いていけばよいと思います。
（私にはとても考え付きませんでした・・・）

> N文字あるとき、1〜2^N-1 の数を二進表現にすりゃいいんじゃね?
> 
> あいう
> ００１ = う
> ０１０ = い
> ０１１ = いう
> １００ = あ
> １０１ = あう
> １１０ = あい
> １１１ = あいう


ちなみに、
>【追記】コードにコメントいれマス。このビット判定も数に限界ありマスね。


　この点は問題ないと思います。
　なぜなら、３２ビットでも組み合わせの数は４０億通りを越えるので、
　結果を格納する文字列のサイズが４ＧＢを遥かに超えてしまうためです。


　ためしに作ってみたコードを提示します（VBですが・・・）

　この関数は
「あ　い　う　え」を渡すと
「あ　い　あい　う　あう　いう　あいう　え　あえ　いえ　あいえ
　うえ　あうえ　いうえ　あいうえ」を返します。


   Public Shared Function Sample01(ByVal input As String) As String

        '全角スペースは半角に変換
        input = input.Replace("　", " ")

        '配列に分割（空要素は入らない）
        Dim sep() As String = {" "}
        Dim Allinput() As String = input.Split(sep, StringSplitOptions.RemoveEmptyEntries)

        Dim cnt As Integer = Allinput.Length
        If cnt >= 33 Then Throw New ArgumentException("要素の数は３２個以内にしてください")
        Dim sb As New StringBuilder

        'ここからメインの処理
        For src As UInt32 = 1 To Convert.ToUInt32(2 ^ cnt - 1)

            Dim mask As UInt32 = 1

            For i As Integer = 1 To cnt

                'ビットが立っていれば文字を追加
                If (src And mask) = mask Then
                    sb.Append(Allinput(i - 1))
                End If
                '型変換しないとエラーになる（なぜ？）
                mask = Convert.ToUInt32(mask * 2)

            Next

            sb.Append("　")

        Next

        Return sb.ToString

    End Function


以上です。

再帰パターンの実装例。見づらい！
多重Listにしなければもう少し判りやすかっただろうけど、汎用性も希望にあわせてみました。

	private void button1_Click(object sender, EventArgs e)
	{
		List<string> t = new List<string>(new string[]{"あ", "い", "う", "え"});
		List<List<string>> r = Combinatorial(t, Int32.MaxValue);
		foreach (List<string> v in r)
		{
			string ss = "";
			foreach (string s in v)
			{
				ss += s;
			}
			Debug.Print(ss);
		}
	}

	private List<List<string>> Combinatorial(IList<string> src, int nCount)
	{
		List<List<string>> resultCombi = new List<List<string>>();
		if (nCount > 0)
		{
			if (nCount > 1)
			{
				if (nCount > src.Count)
				{
					nCount = src.Count;
				}
				List<List<string>> parentCombi = Combinatorial(src, nCount - 1);
				resultCombi.AddRange(parentCombi);
				foreach (List<string> oneOfPattern in parentCombi)
				{
					List<string> clonePattern = new List<string>(oneOfPattern);
					clonePattern.Add(src[nCount - 1]);
					resultCombi.Add(clonePattern);
				}
			}
			resultCombi.Add(new List<string>(new string[] { src[nCount - 1] }));
		}
		return resultCombi;
	}