Dutch national flag problem: Difference between revisions
Content added Content deleted
Line 1,857: | Line 1,857: | ||
local fn SortRandomBalls |
local fn SortRandomBalls |
||
NSUInteger i |
NSUInteger i |
||
CFArrayRef ballColorsArr = @[@"🔴",@"⚪️",@"🔵"] |
CFArrayRef ballColorsArr = @[@"🔴",@"⚪️",@"🔵"] |
||
for i = 0 to 19 |
for i = 0 to 19 |
||
short r = rnd(3)-1 |
short r = rnd(3)-1 |
||
mda _unsorted(i) = ballColorsArr[r] |
mda _unsorted(i) = ballColorsArr[r] |
||
if r == 0 then mda_add _red(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 == 1 then mda_add _white(i) = ballColorsArr[r] |
||
if r == 2 then mda_add _blue(i) = ballColorsArr[r] |
if r == 2 then mda_add _blue(i) = ballColorsArr[r] |
||
next |
next |
||
CFStringRef unsorted = fn StringByReplacingOccurrencesOfString( mda_text _unsorted, @"\n", @"" ) |
CFStringRef unsorted = fn StringByReplacingOccurrencesOfString( mda_text _unsorted, @"\n", @"" ) |
||
CFStringRef redStr = fn StringByReplacingOccurrencesOfString( mda_text _red, @"\n", @"" ) |
CFStringRef redStr = fn StringByReplacingOccurrencesOfString( mda_text _red, @"\n", @"" ) |
||
CFStringRef whiteStr = fn StringByReplacingOccurrencesOfString( mda_text _white, @"\n", @"" ) |
CFStringRef whiteStr = fn StringByReplacingOccurrencesOfString( mda_text _white, @"\n", @"" ) |
||
CFStringRef blueStr = fn StringByReplacingOccurrencesOfString( mda_text _blue, @"\n", @"" ) |
CFStringRef blueStr = fn StringByReplacingOccurrencesOfString( mda_text _blue, @"\n", @"" ) |
||
CFStringRef sorted = fn StringWithFormat( @"%@%@%@", redStr, whiteStr, blueStr ) |
CFStringRef sorted = fn StringWithFormat( @"%@%@%@", redStr, whiteStr, blueStr ) |
||
printf @"Unsorted balls:\n\t%@\n", unsorted |
printf @"Unsorted balls:\n\t%@\n", unsorted |
||
printf @"Sorted balls:\n\t%@", sorted |
printf @"Sorted balls:\n\t%@", sorted |
||
end fn |
end fn |
||