Как получить уникальную строку в файле с помощью tcl

Question

Новое в tcl-программировании. У меня есть файл, который содержит те же строки, как:

 
Dog 
Dog 
Cat 
Cat 
Cat 
Dog 

Я хочу, чтобы получить уникальную строку, как:

 
Dog 
Cat 

Заранее спасибо

Answer 1

set ss {Dog Dog Cat Cat Cat Dog} 
foreach s $ss {set unique($s) 1} 
array names unique 

Документация: array, foreach, set

Answer 2

в качестве альтернативы ответа Питера

set unique [lsort -unique $ss]