OpenEuphoria

Re: better flatten()?

• Posted by DerekParnell (admin) Jul 27, 2015
• 1529 views

The library version is definitely buggy and sub-optimal.

Here's my efforts ...

public function flatten(sequence pSource, object pDelim={}) 
	sequence lResult 
	object lTemp 
	 
	lResult = {} 
	 
	for i = 1 to length(pSource) do 
		lTemp = pSource[i] 
		if atom(lTemp) then 
			lResult &= lTemp 
		else 
			lResult &= flatten(lTemp, pDelim) 
			-- Only add delimiter if not the last sequence. 
			if i != length(pSource) then 
				lResult &= pDelim 
			end if 
		end if 
	end for 
	return lResult 
	 
end function