与えられた数値の素因数分解を行うAppleScriptです。
素数チェックには、数値が小さい場合にはOLD Style AppleScriptの計算ルーチンを呼び出し、数値が大きい（＝計算に時間がかかる）場合には外部フレームワーク「primeNumKit.framework」を呼び出すようにしています。
AppleScriptからのCocoaの機能呼び出しにも時間がかかるので、細かい処理を頻繁に呼び出すと意外とAppleScriptだけで処理したほうが速かったりします（素数チェックを行うためにループで割り算を行いますが、最大値は2から目的値の1/2まででよく、こうした地道な改善が予想外に効いています）。
そのため、計算量を見てどちらで処理するかを判定しています。
–> primeNumKit.framework
| AppleScript名：簡単な素因数分解v5 |
— Created 2017-05-18 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "primeNumKit" –https://github.com/NazarYavornytskyy/prime-number-objc
set aRes to getPrimeFactor(56) of me
–> {2, 2, 2, 7}
set aRes to getPrimeFactor(54) of me
–> {2, 3, 3, 3}
set aRes to getPrimeFactor(9999991) of me
–> {9999991} –素数
–与えられた数を素因数分解する
on getPrimeFactor(aTargNum)
copy aTargNum to a
set pFactList to {}
repeat
set pRes to checkPrimeNumber(a) of me
if pRes = true then
set the end of pFactList to a
return pFactList
end if
set aFactor to checkFactor(a) of me
set the end of pFactList to aFactor
set a to a div aFactor
end repeat
end getPrimeFactor
–素数チェック
on checkPrimeNumber(aNum)
if aNum < 10000 then –0.25秒以上かかりそうな処理はCocoaで処理（実測値ベース）
return checkPrimeNumberSub1(aNum) of me
else
set aPrime to current application’s PrimeNumberHelper’s alloc()’s init()
return (aPrime’s isPrime:aNum) as boolean
end if
end checkPrimeNumber
–小さい数の場合の素数検出
on checkPrimeNumberSub1(aNum)
repeat with i from 2 to (aNum div 2)
if aNum mod i is equal to 0 then
return i –false
end if
end repeat
return true
end checkPrimeNumberSub1
–素因数チェック
on checkFactor(aNum)
repeat with i from 2 to (aNum div 2)
if aNum mod i is equal to 0 then
return i
end if
end repeat
end checkFactor
|
|
★Click Here to Open This Script
|
