TCL 별찍기와 산출물

입력받는 방법 2가지

1. gets로 입력을 받고 set으로 값을 할당

2. gets를 이용하여 입력을 받으며 바로 할당

# set 할당받을변수 할당할값
set n [gets stdin]
 
# gets 입력되는값 할당할변수
gets stdin n

 []로 묶여있으면 []안에 있는 문장들이 연산이 되어 그 연산 결과를 출력

for {set i 1} {$i<=$n} {incr i} {
    puts [string repeat * $i]
}
 
#*
#**
#***
#****
#*****

 ""로 묶여 있으면 printf처럼 문장형태는 그대로 나오고 $를 이용한 변수 호출은 변수 값으로 출력

for {set i 1} {$i<=$n} {incr i} {
    puts "string repeat * $i"
}
#string repeat * 1
#string repeat * 2
#string repeat * 3
#string repeat * 4
#string repeat * 5

 {}로 묶여 있으면 {}안에 있는 문장 전체가 string 형태로 출력

for {set i 1} {$i<=$n} {incr i} {
    puts {string repeat * $i}
}
 
#string repeat * $i
#string repeat * $i
#string repeat * $i
#string repeat * $i
#string repeat * $i