如何得到不同原子排列的可能组合方式？要求不重复

yinyuemi

8楼的算法还是有问题的，并没有穷举出来
如：CNNNCNNC
ywlscpl 发表于 2011-10-03 10:06

    的确是有问题，想要awk写个递归穷尽，没成功，还是用perl吧

1. cat s.pl
   
2. 
   
3. #!/bin/perl
   
4. 
   
5. use strict;
   
6. 
   
7. my $txt="CCCNNNNN";
   
8. my @array=split "", $txt;
   
9. my %hash;
   
10. 
    
11. sub switch{
    
12.         my $t;
    
13.         my ($a,$b,$c)=@_;
    
14.         $t=@$c[$a];
    
15.         @$c[$a]=@$c[$b];
    
16.         @$c[$b]=$t;
    
17. }
    
18. 
    
19. sub arrange{
    
20.         my $i;
    
21.         my ($index,@arr)=@_;
    
22.         if($index==8) {
    
23.                         my $t=join "", @arr;
    
24.                         if(! defined $hash{$t}){
    
25.                                 $hash{$t}++;$hash{reverse $t}++;print @arr,"\n";
    
26.                         }
    
27.         }
    
28.         else{
    
29.                 for($i=$index;$i<8;$i++){
    
30.                         switch($index,$i,\@arr);
    
31.                         arrange($index+1,@arr);
    
32.                         switch($index,$i,\@arr);
    
33.                 }
    
34.         }
    
35. }
    
36. 
    
37. arrange(0,@array);
    
38. 
    
39. perl s.pl
    
40. CCCNNNNN
    
41. CCNCNNNN
    
42. CCNNCNNN
    
43. CCNNNCNN
    
44. CCNNNNCN
    
45. CCNNNNNC
    
46. CNCCNNNN
    
47. CNCNCNNN
    
48. CNCNNCNN
    
49. CNCNNNCN
    
50. CNCNNNNC
    
51. CNNCCNNN
    
52. CNNCNCNN
    
53. CNNCNNCN
    
54. CNNCNNNC
    
55. CNNNCCNN
    
56. CNNNCNCN
    
57. CNNNNCCN
    
58. NCCCNNNN
    
59. NCCNCNNN
    
60. NCCNNCNN
    
61. NCCNNNCN
    
62. NCNCCNNN
    
63. NCNCNCNN
    
64. NCNCNNCN
    
65. NCNNCCNN
    
66. NNCCCNNN
    
67. NNCCNCNN
    
68. 
    

复制代码

njuytwc

回复 11# yinyuemi
辛苦了，这个是对的，不过如果有x个C和y个N，这个程序可以通用吗？比如2个C，4个N这样的可以排多少？该如何修改s.pl程序呢？

njuytwc

回复 11# yinyuemi


    貌似会修改了，谢谢。不过我想知道你这个程序思想是怎么样的，基于什么原理？