Challenge 3

[bonuscad]

Bon l'eau a coulé sous le pont, mais une discussion d'aujourd'hui me fais contribuer a cet ancien challenge

 

(defun test (lst / el nw_lst)
(foreach n lst
 (if (not (member (setq el (cons n (- (length lst) (length (vl-remove n lst))))) nw_lst))
   (setq nw_lst (cons el nw_lst))
 )
)
(vl-sort nw_lst '(lambda (e1 e2) (< (car e1) (car e2))))
)