Flatten a list: Difference between revisions
Add Refal
m (→{{header|Wren}}: Minor tidy) |
Not a robot (talk | contribs) (Add Refal) |
||
| (2 intermediate revisions by one other user not shown) | |||
Line 1,565:
(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 3,531 ⟶ 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}}==
| |||