script spd
　　property aList : {}
　　property tmpList : {}
　　property aRuleList : {{1, 4}, {1, 4}, {1, 4}, {1, 4}} –上書きしてしまうので、この通りとはかぎらない
　　property aRuleLen : length of aRuleList
end script

set targList to {"A", "T", "G", "C"}
set aRes to retStrListInAllCombinations(targList) of me
–> {"ATGC", "ATCG", "AGTC", "AGCT", "ACTG", "ACGT", "TAGC", "TACG", "TGAC", "TGCA", "TCAG", "TCGA", "GATC", "GACT", "GTAC", "GTCA", "GCAT", "GCTA", "CATG", "CAGT", "CTAG", "CTGA", "CGAT", "CGTA"}

–与えた文字列リストを、順列組み合わせの全パターンで組み替え直して返す
on retStrListInAllCombinations(targList as list)
　　
　　set aRes to retAllPatterns(targList) of me
　　–> {1234, 1243, 1324, 1342, 1423, 1432, 2134, 2143, 2314, 2341, 2413, 2431, 3124, 3142, 3214, 3241, 3412, 3421, 4123, 4132, 4213, 4231, 4312, 4321}
　　
　　–順列組み合わせデータをもとに元データをその順番に組み合わせる
　　set (tmpList of spd) to {}
　　repeat with i in aRes
　　　　set jList to characters of (i as string)
　　　　
　　　　set tmpStr to ""
　　　　repeat with ii in jList
　　　　　　set tmpStr to tmpStr & (contents of item (ii as integer) of targList)
　　　　end repeat
　　　　
　　　　set the end of (tmpList of spd) to tmpStr
　　end repeat
　　
　　return (tmpList of spd)
end retStrListInAllCombinations

–与えられた要素数のリストをもとに、すべての順列組み合わせパターンを返す
on retAllPatterns(targList)
　　–ルールテーブルの初期化
　　set targStrLen to length of targList
　　set (aRuleList of spd) to {}
　　repeat with i from 1 to targStrLen
　　　　set the end of (aRuleList of spd) to {1, targStrLen}
　　end repeat
　　set (aRuleLen of spd) to targStrLen –初版ではここを更新していなかったので、データの桁数を増やしても出力結果の桁数が変わらないというバグがあった
　　
　　—
　　set (aList of spd) to {} –initilaize
　　set initNum to getMinNum() of me –本ルール下における最小値
　　
　　copy initNum to aNum
　　
　　repeat
　　　　set aRes to incDigit(aNum, 1) of me
　　　　
　　　　if aRes = false then
　　　　　　exit repeat
　　　　end if
　　　　
　　　　if (chkEachDigitIsNotSameChar(aRes) of me) = true then
　　　　　　if aRes is not in (aList of spd) then
　　　　　　　　set the end of (aList of spd) to aRes
　　　　　　end if
　　　　end if
　　　　
　　　　copy aRes to aNum
　　　　
　　end repeat
　　
　　return (aList of spd)
end retAllPatterns

–与えられたルール下における最小値をルールリストから求める
on getMinNum()
　　–桁数が合っているだけのダミー数字を、適切な桁数作成する（例：11111）
　　set tmpNumStr to ""
　　repeat (aRuleLen of spd) times
　　　　set tmpNumStr to tmpNumStr & "1"
　　end repeat
　　
　　set tmpNum to tmpNumStr as integer
　　
　　–ルールから各桁の最小値を取り出して、各桁に設定する
　　repeat with i from 1 to (aRuleLen of spd)
　　　　set aDigNum to item 1 of item i of (aRuleList of spd)
　　　　set tmpNum to setDigit(tmpNum, i, aDigNum) of me
　　end repeat
　　
　　return tmpNum
end getMinNum

–繰り上がり処理（再帰呼び出しで使用）
on incDigit(aNum, aDigit)
　　set {thisMin, thisMax} to item ((aRuleLen of spd) – aDigit + 1) of (aRuleList of spd)
　　
　　set aTarget to getDigit(aNum, aDigit) of me
　　
　　if aTarget = thisMax then
　　　　if aDigit = (aRuleLen of spd) then
　　　　　　–オーバーフロー（桁あふれ）エラーを返す
　　　　　　return false
　　　　end if
　　　　
　　　　set bNum to incDigit(aNum, aDigit + 1) of me
　　　　
　　　　if bNum = false then return false
　　　　
　　　　set bNum to setDigit(bNum, aDigit, thisMin) of me
　　else
　　　　set aTarget to aTarget + 1
　　　　set bNum to setDigit(aNum, aDigit, aTarget) of me
　　end if
　　
　　return bNum
end incDigit

–指定数値のうち指定桁の数字を返す
on getDigit(aNum, aDigit)
　　
　　set aStr to aNum as string
　　set aLen to length of aStr
　　if aLen < aDigit then
　　　　return false –エラー
　　end if
　　
　　set tStr to character (aLen – aDigit + 1) of aStr
　　return tStr as integer
　　
end getDigit

–指定数値のうち指定桁の数字を返す
on setDigit(aNum, aDigit, newNum)
　　
　　set aStr to aNum as string
　　set aLen to length of aStr
　　if aLen < aDigit then
　　　　return false –エラー
　　end if
　　
　　set aList to characters of aStr
　　
　　set item (aLen – aDigit + 1) of aList to (newNum as string)
　　set aaStr to aList as string
　　
　　return aaStr as integer
　　
end setDigit