Cuál es la forma correcta de comparar dos listas en TCL?
Soy novato en TCL y he escrito el siguiente código:
set list1 {{1 2} 3 4}
set list2 {{1 2} 8 1}
if {[lindex $list1 0] == [lindex $list2 0]} { puts "They are equal!"}
Pero cuando imprimo los elementos de la sublista veo que son iguales, pero laSa declaración @ no lo capta. ¿Por qué? ¿Cómo debería corregir esta comparación?