排列組合中比如說C 5 取 2 (5個位置任取兩個位置的所有可能的排列)
結果是 11000 , 10100 , 10010 , 10001 , 01100 , 01010 , 01001 , 00110 , 00101 , 00011 我想取得這結果的字串
這是我的做法
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var s:String;
i,j,iLen:integer;
sl:TStringList;
begin
sl := TStringList.Create;
iLen := 5;
for i := 1 to iLen -1 do
for j := i 1 to iLen do
begin
s := StringOfChar('0',iLen);
s[i] := '1';
s[j] := '1';
sl.Add(s);
end;
ShowMessage(sl.Text);
sl.Free;
end;
[/code]

這樣雖然能完成,但並不理想, 如果要7取3 變成要寫 3個for 迴圈
麻煩有沒有邏輯好的前輩指導一下怎麼做成變動的 m 取 n

------
額有朝天骨,眼中有靈光

您好,

還沒實測, 只是約略的想法,
用 recursive 方式如何

-------------------
學生時期曾用 recursive function 解過西洋棋盤放8個皇后的問題,
感覺和這題有點像.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

目前是朝遞迴在寫沒錯,但這兩個變數的遞迴有點複雜

------
額有朝天骨,眼中有靈光

的確是用遞迴做出來了, 雖然只有幾行程式, 但卻寫了好幾個小時 > <" , 好久沒這樣傷腦筋了

[code delphi]
function MakeData(m,n: integer):TStringList;
var sl:TStringList;
i:integer;
function mystr(x,y:integer; s:String):string;
begin
if (x = 0) and (y = 0) then
Result := '0'
else if (y = 0) and (x <> 0) then
Result := StringOfChar('0',x)
else if (x = y) and (x <> 0) then
Result := StringOfChar('1',x)
else
begin
if (y > 0) then sl.Add(s '0' mystr(x-1,y,s '0'));
if (y > 0) then sl.Add(s '1' mystr(x-1, y-1 ,s '1'));
end;
end;
begin
sl := TStringList.Create;
mystr(m,n,'');
for i := sl.Count-1 downto 0 do
if Length( sl.Strings[i]) <> m then sl.Delete(i);
Result := sl;
end;
[/code]

老實說,把這種東西拿給別人,有辦法維護才有鬼勒

------
額有朝天骨,眼中有靈光

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

受教了, 新學一個stuffstring  , 寫了這麼久都沒用這個function 過, 害我
在組字串上面打轉很久, 整個想法都受限制, 多謝st33大

------
額有朝天骨,眼中有靈光