Flatten a list: Difference between revisions

<pre>[1, 2, 3, 4, 5, 6, 7, 8]</pre>▼

==={{header|FutureBasic}}===▼

Definitely old school.▼

<syntaxhighlight lang="futurebasic">▼

local fn FlattenList( list as Str255 ) as Str255▼

long i▼

Str255 flatStr, commaStr▼

▼

flatStr = ""▼

for i = 1 to len$(list)▼

if ( instr$( 0, "[] ,", mid$( list, i, 1 ) ) === 0 )▼

flatStr += commaStr + mid$( list, i, 1 )▼

commaStr = ", " ▼

end if▼

next▼

end fn = flatStr▼

window 1, @"Flatten a list", ( 0, 0, 350, 150 )▼

print "["; fn FlattenList( "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]" ); "]"▼

HandleEvents</syntaxhighlight>▼

{{output}}▼

<pre>[1, 2, 3, 4, 5, 6, 7, 8]</pre>▼

Modern and a little outside the box.▼

<syntaxhighlight lang="futurebasic">▼

void local fn FlattenAList▼

CFStringRef listStr = @"[[1], 2, [[3, 4], 5], [[[]]], [[[6]]], 7, 8, []]"▼

CFArrayRef listArr = fn StringComponentsSeparatedByCharactersInSet( listStr, fn CharacterSetWithCharactersInString( @"\"[ ]," ) )▼

CFMutableArrayRef mutArr = fn MutableArrayWithArray( listArr )▼

MutableArrayRemoveObject( mutArr, @"" )▼

CFStringRef flatStr = fn ArrayComponentsJoinedByString( mutArr, @", " )▼

printf @"[%@]", flatStr▼

end fn▼

fn FlattenAList▼

HandleEvents▼

</syntaxhighlight>▼

{{output}}▼