2 lines
99 B
Tcl
2 lines
99 B
Tcl
for {set i 1} {![string match *269696 [expr $i*$i]]} {incr i} {}
|
|
puts "$i squared is [expr $i*$i]"
|