; _$ (vl_every (lambda (x) (eq 'STR (type x))) '("A" 1 "B" 2 "C" "D" "E" 3 4 5 6 "F")) -> nil
; _$ (vl_every (lambda (x) (eq 'STR (type x))) '("A" "B" "C" "D" "E" "F")) -> (T T T T T T)
; _$ (vl_every numberp '(1 2 3 4 5 6 7 8 9 0)) -> (T T T T T T T T T T)
; _$ (vl_every (lambda (x) (if (numberp x) x)) '(1 4 5 1 2 6 3 7)) -> (1 4 5 1 2 6 3 7)
(defun vl_every
( f L
/ rec
) )
)
)
); defun vl_every
; _$ (_mapcar strcase '("a" "b" "c" "d" "e")) -> ("A" "B" "C" "D" "E")
; _$ (_mapcar (lambda (x) (strcat (strcase x) "1")) '("a" "b" "c" "d" "e")) -> ("A1" "B1" "C1" "D1" "E1")
(defun _mapcar
( f L
/ rec
) )
)
( (rec f L) )
)
); defun _mapcar
; _$ (vl_remove_if_not (lambda (x) (eq 'STR (type x))) '("A" 1 "B" 2 "C" "D" "E" 3 4 5 6 "F")) -> ("A" "B" "C" "D" "E" "F")
; _$ (vl_remove_if_not numberp '("A" 1 "B" 2 "C" "D" "E" 3 4 5 6 "F")) -> (1 2 3 4 5 6)
(defun vl_remove_if_not
( tf L
/ rec
) )
)
( (rec tf L) )
)
); defun vl_remove_if_not
; _$ (vl_positions (lambda (x) (eq 'STR (type x))) '("A" 1 "B" 2 "C" "D" "E" 3 4 5 6 "F")) -> (0 2 4 5 6 11)
; _$ (vl_positions numberp '("A" 1 "B" 2 "C" "D" "E" 3 4 5 6 "F")) -> (1 3 7 8 9 10)
(defun vl_positions
( tf L
/ rec
) )
)
( (rec tf L 0) )
)
); defun vl_positions
; _$ (GetNths '(0 2 5 8) (mapcar 'chr (vl-string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))) -> ("A" "C" "F" "I")
; _$ (GetNths '(0 1 2 5 125) (mapcar 'chr (vl-string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))) -> ("A" "B" "C" "F")
; _$ (GetNths '(0 2 5 8) (mapcar 'chr (vl-string->list "01234567890"))) -> ("0" "2" "5" "8")
; _$ (GetNths '(0 1 2 5 125) (mapcar 'chr (vl-string->list "01234567890"))) -> ("0" "1" "2" "5")
(defun GetNths
( nths L
/ rec
) )
)
( (rec nths L 0) )
)
); defun GetNths