RetroBBS - comp.lang.lisp - .Re: two newbie qustions :

.Re: two newbie qustions :

<svs809$1ub2$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!Y8o97Pby+2dunHbbi1MIzA.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: two newbie qustions :
Date: Fri, 4 Mar 2022 05:27:38 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <svs809$1ub2$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="63842"; posting-host="Y8o97Pby+2dunHbbi1MIzA.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. - Fri, 4 Mar 2022 05:27 UTC

> (defun problem-from-book (list)
> (loop
> for (a b) on list
> until (null b)
> always (= (- b a) 1)))

Racket:

(require srfi/1) ;; every

(define (problem-from-book lst)
(every = (cdr lst) (map add1 lst)))

> (problem-from-book '(2 3 4 5))
#t
> (problem-from-book '(2 3 4 5 4))
#f

You scratch my tape, and I'll scratch yours.

devel / comp.lang.lisp / .Re: two newbie qustions :

devel / comp.lang.lisp / .Re: two newbie qustions :

Subject	Author
.Re: two newbie qustions :	Robert L.