for loop with increment tcl

Question

I have a total of 750 count. And each set is 5. Instead of doing many for loop, for {set i 0} {i < 5}, for {set i 5} {i < 10}, for {set i 10} {i < 15}..... Every 5 count, will insert "GOOD".

for {set i 0} {i < 750} {incr i} {
puts $i
if { i * 15} {
puts GOOD
}

Here is the output I am expecting:

0 1 2 3 4 GOOD

5 6 7 8 9 GOOD

10 11 12 13 14 GOOD

15 16 17 18 19 GOOD

Last output 745 746 747 748 749 GOOD

I am not an expert in TCL but it looks like you use the same counter variable in an nested loop. What happens if you set the second "i" to "j" as example? so the second loop states: for{set j 0) {j<5} {incr j} {puts $j} — LMA
– LMA, Commented Mar 7 at 8:25

Donal Fellows · Accepted Answer · 2025-03-07 09:07:17Z

1

Your main problem seems to be using the wrong condition; $i * 15 will be true for every non-zero value of i (Tcl interprets non-zero numbers as true). I think you are more likely to want $i % 5 == 4, which checks if the remainder of dividing the value in i by 5 is 4.

answered Mar 7 at 9:07

Donal Fellows

139k19 gold badges162 silver badges222 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

flash · Accepted Answer · 2025-03-09 15:01:00Z

0

for {set i 0} {$i < 750} {incr i} {
    puts -nonewline "$i "
    if { $i % 5 == 4 && $i != 0} {
    puts "GOOD "
    }
}

added two conditions. and use nonewline to get your ouput format.

$i % 5 == 4 && $i != 0

answered Mar 9 at 15:01

flash

13313 bronze badges

Collectives™ on Stack Overflow

for loop with increment tcl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related