Dutch national flag problem: Difference between revisions
m
→{{header|AppleScript}}: New sort handler URL, tidy-up.
(Add Common Lisp (based on Clojure's structure)) |
m (→{{header|AppleScript}}: New sort handler URL, tidy-up.) |
||
Line 492:
=={{header|AppleScript}}==
<syntaxhighlight lang="applescript">use AppleScript version "2.3.1" -- OS X 10.9 (Mavericks) or later
use sorter : script ¬
▲<syntaxhighlight lang="applescript">use AppleScript version "2.3.1" -- OS X 10.9 (Mavericks) or later — for these 'use' commands!
on DutchNationalFlagProblem(numberOfBalls)
script o
property colours : {"red", "white", "blue"}
▲ property balls : reverse of my colours
end script
▲ repeat numberOfBalls - 3 times
set end of o's balls to some item of o's colours
end repeat
log o's balls
-- Sort the balls using a custom comparison handler.
script
on isGreater(a, b)
return ((a
end isGreater
end script
▲ tell sorter to sort(o's balls, 1, -1, {comparer:redsThenWhitesThenBlues})
-- Return the sorted list.
Line 530 ⟶ 523:
{{output}}
<pre>Log:
(*blue,
Result:
{"red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "red", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "white", "
=={{header|Applesoft BASIC}}==
|