Flatten a list: Difference between revisions
Content added Content deleted
m (→{{header|Emacs Lisp}}: Changed function name from flatten-list to flatten-tree.) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 3,537: | Line 3,537: | ||
>> form blk |
>> form blk |
||
== "1 2 test a bb 3 4 99"</syntaxhighlight> |
== "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}}== |
=={{header|REXX}}== |