Lecture4_my-script-with-perl_Multiple-cycle

Jimmy（jmzeng1314@outlook.com）

Keywords: algorithm/unpack/sprint/位运算

我想输出ATCG四个字符，组成一个12个字符长度字符串的全排列。共4^12=16777216种排列。

按照正常的想法是通过多重循环来生成全排列，但是有个问题，它不支持多扩展性，如果100个全排列，那么得写一百次循环嵌套。

AAAAAAAAAAAAA

TAAAAAAAAAAAA

GAAAAAAAAAAAA

CAAAAAAAAAAAA

ATAAAAAAAAAAA

TTAAAAAAAAAAA

GTAAAAAAAAAAA

CTAAAAAAAAAAA

AGAAAAAAAAAAA

TGAAAAAAAAAAA

GGAAAAAAAAAAA

CGAAAAAAAAAAA

ACAAAAAAAAAAA