For neo12 - using an array to count unique elements in a sequence.
Posted to
tcl
by kbk at Thu Feb 11 16:42:54 GMT 2010
view raw
%
foreach
value {foo bar grill bar grill grill foo foo} {
incr
count(
$value
)
}
% parray count
count(bar) = 2
count(foo) = 3
count(grill) = 3
Recent Posts
tcl by schelte
6 days ago
tcl by emiliano
14 days ago
tcl by fvogel
14 days ago
tcl by emiliano
14 days ago
tcl by rmax
30 days ago
tcl by oldlaptop
31 days ago
tcl by schelte
31 days ago
tcl by Bradipo
44 days ago
tcl by kbk
54 days ago
tcl by oldlaptop
57 days ago
Submit
New paste
Documentation
From Jabber