Re: [External] : Re: Testing whether a list contains at least one non-nil element

[Emanuel Berg]

Jean Louis wrote:

> (defun check-if-any-elt-is-non-nil (list)
>   (let (there-is)
>     (while (and list (not there-is))
>       (when (car list) (setq there-is t))
>       (setq list (cdr list)))
>     there-is))

(require 'cl-lib)

(defun has-non-nil (lst)
  (cl-loop for e in lst
           until e
           finally return e) )

(benchmark 10000000 (has-non-nil (append (list 1) (make-list 1000000 nil)))) ; 
"Elapsed time: 0.330502s"
(benchmark 10000000 (has-non-nil (append          (make-list 1000000 nil)))) ; 
"Elapsed time: 0.570150s"

-- 
underground experts united
https://dataswamp.org/~incal