Autolisp versus Common Lisp
@stanovb a écrit :
For instance Common Lisp has a function called REDUCE that reduces the elements of a list into a single result.
(reduce #’+ ’(1 2 3)) => 6
What would the Autolisp equivalent be?
From the List library at the bottom of this page which contains many other LISP functions to manage lists (the last ones mimic some F# List module functions).
;; gc:fold
;; Retourne l'état final d'un accumulateur dont l'état initial est modifié
;; par l'application d'une fonction à chacun des éléments d'une liste
;;
;; Arguments
;; fun : la fonction à appliquer à chaque élément
;; acc : l'accumulateur
;; lst : la liste
(defun gc:fold (fun acc lst / f)
(setq f (eval fun))
(foreach n lst (setq acc (f acc n)))
)
;; gc:reduce
;; Retourne l'état final d'un accumulateur résultat de l'application
;; d'une fonction à chacun des éléments d'une liste
;;
;; Arguments
;; fun : la fonction à appliquer à chaque élément
;; lst : la liste
(defun gc:reduce (fun lst)
(gc:fold fun (car lst) (cdr lst))
)
@stanovb a écrit :
Also the function REMOVE-IF takes a predicate as input. REMOVE-IF removes all the items from a list that satisfy the predicate, and returns a list of what’s left.
> (remove-if #’numberp ’(2 for 1 sale))
(FOR SALE)
See vl-remove-if built-in function.
