Dutch national flag problem: Difference between revisions
Initial FutureBasic task solution added
m (BaCon, BASIC256, and BBC BASIC moved to the BASIC section.) |
(Initial FutureBasic task solution added) |
||
Line 1,848:
End
</syntaxhighlight>
=={{header|FutureBasic}}==
FB has native sort functions ideal for this task.
<syntaxhighlight lang="furturebasic">
local fn SortBalls
CFArrayRef unsortedArray = @[@"🔴",@"⚪️",@"🔵",@"🔵",@"🔵",@"🔴",@"🔴",@"⚪️",@"⚪️",@"🔵",@"🔴",@"🔴",@"🔴",@"🔵",@"⚪️",@"🔴",@"🔴",@"🔵",@"⚪️"]
CFArrayRef sortedArr = fn ArraySortedArrayUsingSelector( unsortedArray, @"localizedStandardCompare:" )
CFStringRef unsortedString = fn ArrayComponentsJoinedByString( unsortedArray, @"" )
CFStringRef sortedString = fn ArrayComponentsJoinedByString( sortedArr, @"" )
printf @"Unsorted balls:\n\t%@\n", unsortedString
printf @"Sorted balls:\n\t%@", sortedString
end fn
fn SortBalls
HandleEvents
</syntaxhighlight>
{{output}}
<pre>
Unsorted balls:
🔴⚪️🔵🔵🔵🔴🔴⚪️⚪️🔵🔴🔴🔴🔵⚪️🔴🔴🔵⚪️
Sorted balls:
⚪️⚪️⚪️⚪️⚪️🔴🔴🔴🔴🔴🔴🔴🔴🔵🔵🔵🔵🔵🔵
</pre>
=={{header|Gambas}}==
| |||