Dutch national flag problem: Difference between revisions
Content added Content deleted
m (→{{header|FutureBasic}}: fix 'futurebasic' lang typo) |
(Removed — logic flaw) Tag: Manual revert |
||
Line 1,848: | Line 1,848: | ||
End |
End |
||
</syntaxhighlight> |
</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}}== |
=={{header|Gambas}}== |