25 lines
759 B
AppleScript
25 lines
759 B
AppleScript
|
use AppleScript version "2.3.1" -- OS X 10.9 (Mavericks) or later.
|
||
|
|
use sorter : script ¬
|
||
|
|
"Custom Iterative Ternary Merge Sort" --<www.macscripter.net/t/timsort-and-nigsort/71383/3>
|
||
|
|
|
||
|
|
on DutchNationalFlagProblem(numberOfBalls)
|
||
|
|
script o
|
||
|
|
property colours : {"red", "white", "blue"}
|
||
|
|
property balls : {}
|
||
|
|
|
||
|
|
-- Custom comparison handler for the sort.
|
||
|
|
on isGreater(a, b)
|
||
|
|
return ((a ≠ b) and ((a is "blue") or (b is "red")))
|
||
|
|
end isGreater
|
||
|
|
end script
|
||
|
|
|
||
|
|
repeat numberOfBalls times
|
||
|
|
set end of o's balls to some item of o's colours
|
||
|
|
end repeat
|
||
|
|
tell sorter to sort(o's balls, 1, numberOfBalls, {comparer:o})
|
||
|
|
|
||
|
|
return o's balls
|
||
|
|
end DutchNationalFlagProblem
|
||
|
|
|
||
|
|
DutchNationalFlagProblem(100)
|