[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: until-found
From: |
Helmut Eller |
Subject: |
Re: until-found |
Date: |
Fri, 11 Dec 2009 17:10:38 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux) |
* Andreas Roehler [2009-12-10 13:50+0100] writes:
> And here my implementation so far:
>
> (defun until-found (search-string liste)
> (let ((liste liste) element)
> (while liste
> (if (member search-string (car liste))
> (setq element (car liste) liste nil))
> (setq liste (cdr liste)))
> element))
This seems to be the same as:
(car (member (lambda (element) (member search-string element)) liste))
or
(find-if (lambda (element) (member search-string element)) liste)
or
(find search-string liste :test #'member)
or
(loop for e in liste if (member search-string e) return e)
Helmut
- until-found, Andreas Roehler, 2009/12/10
- Re: until-found,
Helmut Eller <=