Compter les éléments identiques dans une liste

[fabcad]

Après une recherche infructueuse sur cadxp ainsi que les fonctions de gestion de listes de Gile, je cherche le moyen de compter les éléments identiques dans une liste.

 

Exemple :

 

Soit une liste ("titi" "toto" "tata" "titi" "toto" "tata" "titi" "toto" "tata" "titi" "toto" "tata")

 

et donc (nbre_elements lst_en_cours "toto") retournerait une valeur de 4.

 

J'ai peut-être passé sur une fonction AutoLISP ou Viusal LISP.

 

Merci,

[Patrick_35]

Salut

 

Par exemple

(setq lst '("titi" "toto" "tata" "titi" "toto" "tata" "titi" "toto" "tata" "titi" "toto" "tata"))
(while lst
 (setq tot (length lst)
ele (car lst)
lst (vl-remove ele lst)
new (cons (cons ele (- tot (length lst))) new)
 )
)

 

Il y avait aussi ce challenge

 

@+

 

[Edité le 30/7/2010 par Patrick_35]