strlen or length

[caduser]

(setq x (car xx))
return 10.5689
how to count that number
they have 6 number (qty w/o dot)

 

[Joe Burke]

Should consider negative numbers.

(defun Len (n / ln)
(setq ln (strlen (vl-princ-to-string (abs n))))
(if (= 'REAL (type n))
(1- ln) ln)
)

Joe Burke