用R實現全排列的分類

R 實際上是個很好用的東東哦～最近寫了個小函數，能夠實現全排列數的枚舉,代碼以下：

permut<-function(seq){
     seq_len=length(seq);
     if(seq_len==1){
           perseq<-seq;
     }   
     else{

          if(seq_len==2){
              perseq<-cbind(c(seq[1],seq[2]),c(seq[2],seq[1]));
          }   
          else{
              sd<-seq[-1];
              e<-permut(sd);
              perseq<-rbind(seq[1],e);
              for(i in 2:seq_len){
                  sd<-seq[-i];
                  e<-permut(sd);
                  perseq<-cbind(perseq,rbind(seq[i],e));
              }   
          }   
      }   
      perseq;
 }        

本人原創，轉載請附上連接： http://www.cnblogs.com/fuopen/p/3147291.html