Tüm dizi olasılıklar

3 Cevap php

Ben (programlama dili aslında bir şey demek değildir) pascal kodu vardır:

box[1] := 14;
box[2] := 2;
box[3] := 4;
box[4] := 5;
box[5] := 6;
box[6] := 8;

Ben bütün olasılıkları almak istiyorum. Örneğin, kutu [1] = kutu [6], daha sonra kutusuna [6] = kutu [1]. Evet, benim elle yazabilirsiniz, ama ben döngü ile, daha zeki yapabilir sanırım. Herhangi bir öneriniz?

3 Cevap

Ben wikipedia bulunan ve Delphi (2009) içinde uygulanan birinci permütasyon algoritmasını almış; Ben sizin için ne arıyorsanız umut:

type
  TIntegerArray = array of Integer;

procedure Permutation(K: Integer; var A: TIntegerArray);
var
  I, J: Integer;
  Tmp: Integer;

begin
  for I:= 2 to Length(A) do begin
    J:= K mod I;
    Tmp:= A[J];
    A[J]:= A[I - 1];
    A[I - 1]:= Tmp;
    K:= K div I;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  K, I: Integer;
  A: TIntegerArray;
  S: string;

begin
  Memo1.Lines.Clear;
  for K:= 0 to 719 do begin
    A:= TIntegerArray.Create(14, 2, 4, 5, 6, 8);
    Permutation(K, A);
    S:= '';
    for I:= 0 to Length(A) - 1 do
      S:= S + Format('%3.d ', [A[I]]);
    Memo1.Lines.Add(S);
  end;
end;

I've answered you zaten? = S

Yani temelde, ya (1) dahil veya (0) hariç edilebilir öğeleri belirledik. Eğer 0 -1 (öğe sayısı) ^ 2 ila sayarsan, her tamsayı öğeler dahil hangi gösteren bit bir dizi olacak.

Eğer 0-127 sizin döngü içinde 7 öğe varsa seçilen öğeler şunlardır:

x0000000 (loop variable = 0, no items are chosen)
x0000001 (loop variable = 1, item [1] is chosen)
x0000010 (loop variable = 2, item [2] is chosen)
x0000011 (loop variable = 3, items [1] and [2] are chosen)
...
x1111111 (loop variable = 127, items [1], [2], [3], [4], [5], [6], [7] are chosen)

etiketler