Another:
(defun _count ( l / c x ) ...
Recursion is often shorter and beautiful but sometimes can be slower and can bomb on very very very log list:
(setq aList '("JB1X22X40X100X20X8"
"JB1X26X50X120X40X10""JB1X22X40X100X20X8""JB1X30X60X150X40X16""JB2X23X50X100X20X8"
"JB2X23X40X100X20X8""JB2X30X60X150X40X16""JB1X26X50X120X40X10""JB2X26X50X120X40X10"
"JB2X30X60X150X40X16""JB1X30X60X150X40X16""JB2X23X50X100X20X8""JB1X26X50X120X40X10"
"JB2X30X60X150X40X16""JB2X26X50X120X40X10""JB1X30X60X150X40X16""JB2X23X40X100X20X8"
"JB2X26X50X120X40X10""JB1X30X60X150X40X16""JB2X30X60X150X40X16""JB3X40X60X155X40X16"
) )
(progn
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(setq alist (append alist alist alist alist))
(princ)
)
;(length alist) 5505024