Flatten a list: Difference between revisions

→‎min: update
m (syntax highlighting fixup automation)
(→‎min: update)
Line 2,578:
 
=={{header|min}}==
{{works with|min|0.1937.60}}
<syntaxhighlight lang="min">(
(adup 'quotation? any?) 'flatten while
=a
) :^deep-flatten
(a 'quotation? any?)
(a => #a) while a
) :deep-flatten
 
((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()) deep-flatten puts!</syntaxhighlight>
{{out}}
<pre>(1 2 3 4 5 6 7 8)</pre>
<pre>
(1 2 3 4 5 6 7 8)
</pre>
 
=={{header|Mirah}}==
559

edits