Data update

Task/Flatten-a-list/Emacs-Lisp/flatten-a-list-2.l

@@ -0,0 +1 @@
+(flatten-tree mylist)

Task/Flatten-a-list/PascalABC.NET/flatten-a-list.pas

@@ -0,0 +1,16 @@
+function Flatten(lst: List<object>): List<object>;
+begin
+  Result := new List<object>;
+  foreach var x in lst do
+    if x is List<object> then
+      Result.Addrange(Flatten(x as List<object>))
+    else Result.Add(x)
+end;
+
+function LstObj(params a: array of object): List<Object> := new List<Object>(a);
+
+begin
+  var lst := LstObj(1,LstObj(2, LstObj(3,4), LstObj(5,6)), LstObj(LstObj(7,8), 9));
+  Println(lst);
+  Println(Flatten(lst));
+end.

Task/Flatten-a-list/Refal/flatten-a-list.refal

@@ -0,0 +1,10 @@
+$ENTRY Go {
+    , ((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()): e.List
+    = <Prout e.List ' -> ' <Flatten e.List>>
+};
+
+Flatten {
+    = ;
+    s.I e.X = s.I <Flatten e.X>;
+    (e.X) e.Y = <Flatten e.X> <Flatten e.Y>;
+};

Task/Flatten-a-list/Uiua/flatten-a-list.uiua

@@ -0,0 +1 @@
+⍥/◇⊂∞{{1} 2 {{3 4} 5} {{{}}} {{{6}}} 7 8 {}}