adamretter · July 27, 2022 12:17
diff --git a/flatten-array.xqm b/flatten-array.xqm
 declare function local:flatten-once($ar as array(*)) as array(*) {
  array:fold-left($ar, array{}, function($x, $y){
    array:join(($x, 
      if ($y instance of array(*))
      then
        array { $y?* }
      else
        array { $y }  (: for array(t) -> array(t) :)
    ))
  })
 };

 local:flatten-once([[[1,2], [3,4]]])
	declare function local:flatten-once($ar as array()) as array() {
	array:fold-left($ar, array{}, function($x, $y){
	array:join(($x,
	if ($y instance of array(*))
	then
	array { $y?* }
	else
	array { $y } (: for array(t) -> array(t) :)
	))
	})
	};

	local:flatten-once([[[1,2], [3,4]]])