RosettaCodeData/Task/Flatten-a-list/Red/flatten-a-list.red

15 lines
284 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
flatten: function [
"Flatten the block"
block [any-block!]
][
load form block
]
2018-06-22 20:57:24 +00:00
red>> flatten [[1] 2 [[3 4] 5] [[[]]] [[[6]]] 7 8 []]
== [1 2 3 4 5 6 7 8]
;flatten a list to a string
>> blk: [1 2 ["test"] "a" [["bb"]] 3 4 [[[99]]]]
>> form blk
== "1 2 test a bb 3 4 99"