occurrence maximale d'un élément dans un tableau en tcl

Question

I ont un tableau comme suit

array = {aaaabbbcccccc}

dans le tableau ci-dessus "a" est accumulés par 4 fois, b est égal à 3 fois, c comme 6 fois

pourriez-vous me aider avec le proc pour obtenir la sortie 6 comme si mon entrée est au-dessus tableau

Merci

Answer 1

Utilisation d'un dict pour contenir le nombre de chaque élément, puis la fonction max pour obtenir la valeur maximale.

set array { a a a a b b b c c c c c c} 
foreach elem $array {dict incr count $elem} 
set max [tcl::mathfunc::max {*}[dict values $count]] 
puts $max ; # => 6 

Le « floc » ({*}) se dilate d'une liste de valeurs en ses éléments individuels pour alimenter la fonction max.