Sujet : .Re: YANQ - When to map, when to iterate, when to recurse?
De : No_spamming (at) *nospam* noWhere_7073.org (B. Pym)
Groupes : comp.lang.lispDate : 09. Jun 2024, 10:12:11
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v43o4n$3auvn$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Wade Humeniuk wrote:
(defun find-indices (list test)
(loop for element in list
for index from 1
when (funcall test element) collect index))
Gauche Scheme
(define (find-indices xs test)
(filter-map
(lambda (x i) (and (test x) i))
xs
(lrange 0)))
(find-indices '(-9 0 3 4 5) odd?)
===>
'(0 2 4)