recursive
one defun
one argument
not suitable for benchmarking
(defun decompress (l / a b c)
(if (setq b (vl-member-if
(function (lambda (x) (setq a (cons x a)) (< 47 x 58)))
(vl-string->list l)
)
)
(decompress
(vl-list->string
(append (reverse (repeat (- (car b) 48) (setq c (append c (cdr a))))) (cdr b))
)
)
l
)
)