Dutch national flag problem: Difference between revisions
m
→{{header|FutureBasic}}
Line 1,857:
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
| |||