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