(defun str->lst ()
(defun range (i j)
(if (= i j) (list i)
(cons i (range (1+ i) j))
)
)
(setq s1 "r1 = 1/2 x (4.80 + 4.18 + 3.30 ) = 6.14 m.")
(setq lst (apply 'list (mapcar '(lambda (x) (substr s1 x 1)) (range 1 (strlen s1)))))
(setq lst (reverse (cdr (member "=" (reverse (cdr (member "=" lst)))))))
(setq s1 (apply 'strcat lst))
)
r1 = 1/2 x (4.80 + 4.18 + 3.30 ) = 6.14 m.