–v5 外部からプロパティで与えられたルールから、初期値となる「最小値」を自前で計算するように変更
–v4 桁ごとにサブルーチンを設けるのではなく、再帰処理で１つのルーチンを多重呼び出しするように変更
–v3 コードのルールを外部供給する構成にした（処理ロジックとルールの分離が完了）
–v2 各桁の最大値と最小値をプロパティで持たせるテスト
–v1 各桁のインクリメント用のサブルーチンを作成し、ルールを各サブルーチン側でハードコーディングする（正しく動く）
script spd
property aList : {}
property aRuleList : {{1, 2}, {1, 3}, {0, 1}, {1, 4}, {1, 8}} –各桁の{最小値, 最大値}ペアのリスト
property aRuleLen : length of aRuleList
end script
set aList of spd to {} –initilaize
set initNum to getMinNum() of me –本ルール下における最小値
set the end of aList of spd to initNum
copy initNum to aNum
repeat
set aRes to incDigit(aNum, 1) of me
if aRes = false then
exit repeat
end if
set the end of aList of spd to aRes
copy aRes to aNum
end repeat
–return length of (aList of spd)
return (aList of spd)
–与えられたルール下における最小値をルールリストから求める
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
与えられた文字列の1D Listのすべての順列組み合わせパターン文字列を返す – AppleScriptの穴 says:
[…] そのため、過去に作った一番近いルーチンを流用して、すべての組み合わせパターンを計算し、そのうえで「すべての要素が異なる組み合わせ」だけを抽出しています（すべての組み合 […]