Message-ID:

Logic is a systematic method of coming to the wrong conclusion with confidence.

Lost in Loop

<su1sj9$10ie$1@gioia.aioe.org>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16819&group=comp.lang.lisp#16819

Path: i2pn2.org!i2pn.org!aioe.org!Qf3halnpu1fI3ZHU4ph8fw.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: Lost in Loop
Date: Thu, 10 Feb 2022 02:17:15 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <su1sj9$10ie$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="33358"; posting-host="Qf3halnpu1fI3ZHU4ph8fw.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Thu, 10 Feb 2022 02:17 UTC

Pascal Bourguignon wrote:

> (defun build-book-index (text books)
> (loop
> for book in books
> for my-it = (search (string-downcase book) (string-downcase text))
> when my-it collect (list my-it book)))

(use srfi-13) ;; string-contains-ci for Gauche Scheme.
or
(require srfi/13) ;; string-contains-ci for Racket.

(define (build-book-index text books)
(filter-map
(lambda (book)
(let ((p (string-contains-ci text book)))
(and p (list p book))))
books))

(build-book-index "pierretypeemardi" '("Typee" "Mardi" "Pierre" "x"))
===>
((6 "Typee") (11 "Mardi") (0 "Pierre"))

Logic is a systematic method of coming to the wrong conclusion with confidence.

devel / comp.lang.lisp / Lost in Loop

devel / comp.lang.lisp / Lost in Loop