TCLを使用してピラミッドを印刷

Question

PERLを使用して文字を連結して繰り返す方法が混乱しています。親切に私を助けてください。私はTCLを使ってピラミッドを印刷する必要があります。以下は私のコードです。 >

---

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を作品

の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 <はリスト演算子ではなく、文字列演算子です。

perlのxオペレータは文字列を繰り返します。これをTclの*に翻訳することはできません。 string repeatコマンドを使用する必要があります。

Tclで文字を連結するには、単にそれらを隣り合わせに配置するだけです。

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

ここではわかりやすくするために引用符を使用していますが、この場合は実際には必要ありません。または、string catコマンドを使用します。

Answer 2

exprコマンドで算術演算を行う必要があります。また、perlの. => TCL appendとperlのx =>のTclコードの長い行は、すべてのネストされた括弧を読むためには非常に難しいことができますがstring repeat

TCLあなたのperlの翻訳は

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

です。おそらく：

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