指定のコード体系の全パターンのコードを生成 v5

Posted on 2月 21, 2018 by Takaaki Naganoya

AppleScript名：指定のコード体系の全パターンのコードを生成 v5

–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