Re: [問題] 如何快速產生 6! * 3!的所有組合?

看板MATLAB作者 (Veritas)時間18年前 (2006/12/04 01:07), 編輯推噓4(400)
留言4則, 4人參與, 最新討論串1/1
※ 引述《zxvc (zxvc)》之銘言: : ※ 引述《zxvc (zxvc)》之銘言: : : 修正版: : : m=6; : : n=3; : : a=perms(1:m); : : b=perms((m+1):(m+n)); : : br=size(b,1); : : s1=repmat(['a repmat(b('],br,1); : : s2=num2str((1:br)'); : : s3=repmat([',:),' num2str(size(a,1)) ',1);'],br,1); : : s=[s1 s2 s3]'; : : eval(['[' s(:)' ']']); : 精簡版: : m=6; : n=3; : a=perms(1:m); : b=perms((m+1):(m+n)); : s=num2str((1:size(b,1))',['a repmat(b(%d,:),' num2str(size(a,1)) ',1);'])'; : eval(['[' s(:)' ']']); : 抱歉,這招太好用了,不得不貼出來。 [o,p]=meshgrid(1:length(b),1:length(a)); u=[a(p(:),:) b(o(:),:)]; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.58.22.41

12/04 07:27, , 1F
12/04 07:27, 1F

12/04 11:42, , 2F
超棒!<O>
12/04 11:42, 2F

12/04 11:50, , 3F
真神 幸好寫程式不是按字數收費,不然原po就虧死了
12/04 11:50, 3F

12/04 12:24, , 4F
( ̄▽ ̄#)﹏﹏ 大家都好厲害
12/04 12:24, 4F
文章代碼(AID): #15SmHjwh (MATLAB)
文章代碼(AID): #15SmHjwh (MATLAB)