RosettaCodeData/Task/Flatten-a-list/Pike/flatten-a-list.pike
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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;
}