Flatten a list: Difference between revisions

Slate implementation
No edit summary
(Slate implementation)
Line 283:
> (flatten '((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()))
(1 2 3 4 5 6 7 8)</lang>
 
=={{header|Slate}}==
<lang slate>
s@(Sequence traits) flatten
[
[| :out |
s do: [| :value |
(value is: s)
ifTrue: [out nextPutAll: value flatten]
ifFalse: [out nextPut: value]]
] writingAs: s
].</slate>
 
=={{header|Smalltalk}}==