perl 排列组合问题

显示全部楼层 · 2011-3-19 21:18:18

①：选三个相同的即C4 1（因为你选了第一个，第二个一定要与第一个相同，所以区别只在于第一个，所以是C4 1。下同） ,再选与之不同的,即C3 1
所以为C4 1乘以C3 1②：选两个相同的即C4 1,再选与之不同的一个,即C3 1，再选与前面两个不同的即C2 1即C4 1乘以C3 1乘以C2 1③:选1个相同，3个不同.....不就是4个不同的嘛。。。真不知道你怎么想的。就是C4 1*C3 1*C2 1*C1 1④：选两个相同的即C4 1，另两个相同的即C3 1，就是C4 1* C3 1⑤：你仔细想想，其实和第二个是一样的，再算就会算重复了。你的思维方式不太好。应该由特殊的开始想，你那样想会很乱的。
有...

千问 · 2011-3-19 21:18:18

#!/usr/bin/perl -w@AA=(A,T,C,G);foreach $a1(@AA){ foreach $a2(@AA){ foreach $a3(@AA){
foreach $a4(@AA){
next if ($a1 eq $a2)&& ($a2 eq $a3)&&($a3 eq $a4);...