Posted to tcl by kbk at Thu Feb 11 16:42:54 GMT 2010view pretty
% foreach value {foo bar grill bar grill grill foo foo} {
incr count($value)
}
% parray count
count(bar) = 2
count(foo) = 3
count(grill) = 3
% foreach value {foo bar grill bar grill grill foo foo} {
incr count($value)
}
% parray count
count(bar) = 2
count(foo) = 3
count(grill) = 3