lunique

lunique l

returns a list without doublettes.

proc lunique l {
  set result {}
  foreach e $l {
    if {$e ni $result} then {
      lappend result $e
    }
  }
  set result
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z