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 egavilan
20 hours ago
tcl by bch
6 days ago
tcl by Bradipo
6 days ago
tcl by aspect
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
7 days ago
tcl by Bradipo
7 days ago
lilypond by Bradipo
8 days ago
tcl by cgm
18 days ago
tcl by dandyn
27 days ago
Submit
New paste
Documentation
From Jabber