|
End
</syntaxhighlight>
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
_red = 0
_white = 1
_blue = 2
_unsorted = 4
local fn SortRandomBalls
NSUInteger i
CFArrayRef ballColorsArr = @[@"🔴",@"⚪️",@"🔵"]
for i = 0 to 19
short r = rnd(3)-1
mda _unsorted(i) = ballColorsArr[r]
if r == 0 then mda_add _red(i) = ballColorsArr[r]
if r == 1 then mda_add _white(i) = ballColorsArr[r]
if r == 2 then mda_add _blue(i) = ballColorsArr[r]
next
CFStringRef unsorted = fn StringByReplacingOccurrencesOfString( mda_text _unsorted, @"\n", @"" )
CFStringRef redStr = fn StringByReplacingOccurrencesOfString( mda_text _red, @"\n", @"" )
CFStringRef whiteStr = fn StringByReplacingOccurrencesOfString( mda_text _white, @"\n", @"" )
CFStringRef blueStr = fn StringByReplacingOccurrencesOfString( mda_text _blue, @"\n", @"" )
CFStringRef sorted = fn StringWithFormat( @"%@%@%@", redStr, whiteStr, blueStr )
printf @"Unsorted balls:\n\t%@\n", unsorted
printf @"Sorted balls:\n\t%@", sorted
end fn
random
fn SortRandomBalls
HandleEvents
</syntaxhighlight>
{{output}}
<pre>
Unsorted balls:
⚪️🔴🔵🔴🔴⚪️🔴🔴🔵🔵⚪️⚪️🔵🔴🔵🔵🔵🔴🔵⚪️
Sorted balls:
🔴🔴🔴🔴🔴🔴🔴⚪️⚪️⚪️⚪️⚪️🔵🔵🔵🔵🔵🔵🔵🔵
</pre>
=={{header|Gambas}}==
|