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 oldlaptop
1 days ago
tcl by mookie
7 days ago
tcl by dandyn
14 days ago
tcl by Bradipo
14 days ago
tcl by Bradipo
14 days ago
tcl by oldlaptop
38 days ago
tcl by oldlaptop
39 days ago
tcl by mookie
43 days ago
tcl by mookie
44 days ago
tcl by georgtree
45 days ago
Submit
New paste
Documentation
From Jabber