CommonLisp describes, what he does each function after the line-defun.
Visual Lisp accepts this "Inf=" description.
(defun dfn_taskf2(langf)
"Inf=Leave only one copy of the repeated elements"
..............
)
(defun dfn_taskf4(lst)
"Inf=Count the number of repeated occurrences"
...........
)
(defun dfn_taskf5(lst)
"Replace all elements with count inn reverse Order"
(let ( ($rr nil)
(lst3 nil)
)
............)
(defun dfn_taskf1(vlc $rr)
"Remove the second and succeeding adjacent duplicates"
(if (and vlc (cadr vlc) (equal (car vlc) (cadr vlc)))
(dfn_taskf1 (cdr vlc) $rr)
(if (cadr vlc)
(setf $rr (cons (car vlc) (dfn_taskf1 (cdr vlc) $rr)))
(setf $rr vlc)
)
)
)
Can you test, inside Vlisp for Acad2020+ or Acad2021?
