tcl-循环-条件

一、循环

1、for循环

# 正序打印
for {set i 0} {$i < $n} {incr i} {
    puts $i
}

# 逆序打印
for {set i [expr $n - 1]} {$i >= 0} {incr i -1} {
    puts $i
}

2、while循环

while {$i < $n} {
    puts $i
    #set i [expr $i + 1]
    incr i
}

3、foreach循环

foreach e {0 1 2} {
    puts $e
}

4、控制结构：break; continue; 皆可用于三种循环

# break
for {set i 0} {$i < 10} {incr i} {
    if {$i == 3} {
        break
    }
    puts $i
}

# continue
for {set i 0} {$i < 10} {incr i} {
    if {$i == 3} {
        continue
    }
    puts $i
}

二、条件

1、if条件

if {$k == 0} {
    puts "hello!"
} elseif {$k == 1} {
    puts "world!"
} else {
    puts "nice!"
}

2、switch条件

switch $k {
    0 {
        puts "hello!";
    }
    1 {
        puts "world!";
    }
    default {
        puts "nice!"
    }
}