RosettaCodeData/Task/Flatten-a-list/Pike/flatten-a-list.pike
2023-07-01 13:44:08 -04:00

10 lines
142 B
Text

array flatten(array a) {
array r = ({ });
foreach (a, mixed n) {
if (arrayp(n)) r += flatten(n);
else r += ({ n });
}
return r;
}