4 lines
84 B
Text
4 lines
84 B
Text
flat [] = []
|
|
flat (x::xs)
|
|
| x is List = flat x ++ flat xs
|
|
| else = x :: flat xs
|