You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
# TCL script to count the total number of words in the strings.
#Version 1.0
##Method1
set in "Tcl Runs on Windows, Mac OS X, Linux, and virtually every variant of unix. Event driven programming. Tcl is a cross platform language with full unicode support."
puts [set l [string length $in]]
set cnt 0
for {set i 0} {$i < $l} {incr i} {
if { [string equal -nocase [string index $in $i] " "] == 1 } {