Re: Handling pathological lists

"keithv" <kvetter@gmail.com> writes:

> But let me restate the problem: write a routine that
> flattens a list, e.g.
> where: [list [list a b] c [list d e [list f g]]]
> becomes: {a b c d e}

{a b c d e f g}?

proc flatten { lis } {
  set len -1
  while { $len != [set len [llength $lis]] } {
    set lis [eval concat $lis]
  }
  return $lis
}

-- 
Donald Arseneau                          asnd@triumf.ca