AutoLisp, поменять порядок цифр числа

(DEFUN REV(X)
(COND
((< X 10) (COND ((= X 3) T) (T nil)))
((= (REM X 10) 3) T)
(T (REV (FIX (/ X 10))))))

(defun explode ( num / lst)
  ;; Разбивает число на список его цифр
  ;; (explode 153) ==> (1 5 3)
  (while (> num 0)
    (setq lst   (cons (rem num 10) lst)
          num (/ num 10)))
  lst
)
 
(defun implode ( lst / num )
  ;; Восстанавливает число из списка его цифр
  ;; (implode '(1 5 3)) ==> 153
  (setq num 0
        len (1- (length lst)))
  (while lst
   (setq num (+ num (* (car lst) (expt 10 len) ))
         len (1-  len)
         lst (cdr lst)))
  num
)
 
(if (member 3 (setq num 153 lst (explode num)))
  (implode (reverse lst)))

(defun task (n)
  (let ((l (explode n)))
    (if (member 3 l) (implode (reverse l)) n)))
 
==> task
 
(task 123)
 
==> 321
 
(task 124)
 
==> 124

(defun F (integer / str)
  (setq str (itoa integer))
  (if (vl-string-search "3" str)
      (read (vl-list->string (reverse (vl-string->list str))))
      integer))
 
Command: (F 1234)
4321
 
Command: (F 124)
124

;; racket-lang.org
(define (foo n)
  (when (number? n)
    (let ((m (string->list (number->string n))))
      (if (member #\3 m)
          (string->number (list->string (reverse m)))
          n))))
 
(foo 1234)
;4321
(foo 2244)
;2244

(defun foo ( num / lst)
  (if (vl-position 51 (setq lst (vl-string->list (itoa num))))
    (atoi (vl-list->string (reverse lst))) num))