Message-ID:

Quod licet Iovi non licet bovi. (What Jove may do, is not permitted to a cow.)

devel / comp.lang.lisp / .Re: Can someone please explain me what's wrong with this code ?

.Re: Can someone please explain me what's wrong with this code ?

<t0saqo$shp$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!y46B14SYy+b8TRVRXGQ76g.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: Can someone please explain me what's wrong with this code ?
Date: Wed, 16 Mar 2022 09:32:09 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <t0saqo$shp$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="29241"; posting-host="y46B14SYy+b8TRVRXGQ76g.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. - Wed, 16 Mar 2022 09:32 UTC

Ken Tilton wrote:

> (defun some-thing-pos (list test)
> (loop for e in list
> for pos upfrom 0
> for res = (funcall test e)
> when res return (list res e pos res))) ;; order to fit name
>
> I must say, however, I am suspicous of the whole business, and would
> like to see the calling code so we can really rake this bum over the coals.

Shorter and Lispier:

Gauche Scheme:

(define (search L test)
(any
(lambda (e i) (if-let1 res (test e) (list e res i) #f))
L
(lrange 0)))

(search '(0 2 4 5 8) (lambda(n) (and (odd? n) (* n n))))
===>
(5 25 3)

Subject	Author
.Re: Can someone please explain me what's wrong with this code ?	Robert L.