Печать пирамиды с использованием TCL

Question

Я смущен, как конкатрировать и повторять символ с использованием PERL. Пожалуйста, помогите мне. Мне нужно напечатать пирамиду, используя TCL. Ниже мой код.

Tcl

---

set height 10 
set spaceChar " " 
set pyramidChar^

for {set i 1} {$i <= $height} {incr i} { 
    set y "concat {$spaceChar *($height - $i)} {$pyramidChar * $i} " 
    puts $y 
} 

< PERL Какие работы>

---

print "Please Enter Pyramind Height:"; 
my $height = <>; chomp($height); # strip of new lines 

my $char='^'; 

for(my $i=1; $i<=$height; ++$i){ 
    print ' ' x ($height-$i) . $char x (2*$i-1), "\n"; 

Answer 1

concat является оператором списка, а не оператор строки.

Оператор x в perl повторяет строку. Вы не можете перевести это на * в Tcl. Вам необходимо использовать команду string repeat.

Чтобы скомпоновать символы в Tcl, просто поместите их рядом друг с другом, например.

set y "[string repeat { } 5][string repeat {^} 2]" 

Я использую цитаты здесь для ясности - в этом случае они не нужны. Или используйте команду string cat.

set y [string cat [string repeat { } 5][string repeat {^} 2]] 

Answer 2

Вы упускаете тот факт, что арифметика должно быть сделано с помощью команды expr. Кроме того, Perl . => TCL append и Perl x => TCL string repeat

перевод вашего Perl является

for {set i 1} {$i <= $height} {incr i} { 
    puts [string cat [string repeat " " [expr {$height - $i}]] [string repeat $char [expr {$i*2-1}]]] 
} 

Хотя длинные строки Tcl кода может быть довольно трудно читать со всеми вложенными скобками. Возможно: