Flatten a list: Difference between revisions
m
Move FutureBasic out of BASIC group
m (Move FutureBasic out of BASIC group) |
|||
| (5 intermediate revisions by 4 users not shown) | |||
Line 554:
Sleep</syntaxhighlight>
{{out}}
<pre>[1, 2, 3, 4, 5, 6, 7, 8]</pre>
Line 1,565 ⟶ 1,523:
(t
(append (flatten (car mylist)) (flatten (cdr mylist))))))</syntaxhighlight>
The flatten-tree function was added in Emacs 27.1 or earlier.
<syntaxhighlight lang="lisp">
(flatten-tree mylist)
</syntaxhighlight>
=={{header|Erlang}}==
Line 1,902 ⟶ 1,866:
println[flatten[a]]
</syntaxhighlight>
=={{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}}
<pre>[1, 2, 3, 4, 5, 6, 7, 8]</pre>
=={{header|GAP}}==
Line 2,120 ⟶ 2,126:
return
end</syntaxhighlight>
=={{header|Insitux}}==
Insitux has a built-in flatten function.
<syntaxhighlight lang="insitux">
(flatten [[1] 2 [[3 4] 5] [[[]]] [[[6]]] 7 8 []])
</syntaxhighlight>
{{out}}
<pre>
[1 2 3 4 5 6 7 8]
</pre>
=={{header|Ioke}}==
Line 3,521 ⟶ 3,537:
>> form blk
== "1 2 test a bb 3 4 99"</syntaxhighlight>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
, ((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()): e.List
= <Prout e.List ' -> ' <Flatten e.List>>
};
Flatten {
= ;
s.I e.X = s.I <Flatten e.X>;
(e.X) e.Y = <Flatten e.X> <Flatten e.Y>;
};</syntaxhighlight>
{{out}}
<pre>((1 )2 ((3 4 )5 )((()))(((6 )))7 8 ()) -> 1 2 3 4 5 6 7 8</pre>
=={{header|REXX}}==
Line 4,218 ⟶ 4,248:
{{libheader|Wren-seq}}
A method already exists for this operation in the above module.
<syntaxhighlight lang="
var a = [[1], 2, [[3, 4], 5], [[[]]], [[[6]]], 7, 8, []]
| |||