.Re: YANQ - When to map, when to iterate, when to recurse?

Liste des GroupesRevenir à cl lisp 
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.lisp
Date : 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)



Date Sujet#  Auteur
9 Jun 24 o .Re: YANQ - When to map, when to iterate, when to recurse?1B. Pym

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal