Как дать переменный интервал между словами в Tcl?

Question

Я только начал изучать Tcl, моя главная цель напечатать два списка следующим образом:

List1             List2
1                 A
2                 B
3                 C
4                 D

Answer 1

Вы можете использовать цикл и format:

set List1 {1 2 3 4}
set List2 {A B C D}
puts [format %-10s%-10s List1 List2]
foreach i $List1 j $List2 {
    puts [format %-10s%-10s $i $j]
}

Выход из вышеперечисленного:

List1     List2
1         A
2         B
3         C
4         D

Примечание: в приведенном выше тексте %-10s примерно означает выравнивание текста по левому краю в столбце из 10 пробелов