Message-ID:

A pain in the ass of major dimensions. -- C. A. Desoer, on the solution of non-linear circuits

devel / comp.lang.lisp / .Re: Lisp for ANN programming

.Re: Lisp for ANN programming

<t19dms$16v6$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!SuenIerR9w710XkqBPrXPQ.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: Lisp for ANN programming
Date: Mon, 21 Mar 2022 08:41:02 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <t19dms$16v6$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="39910"; posting-host="SuenIerR9w710XkqBPrXPQ.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. - Mon, 21 Mar 2022 08:41 UTC

> CL-USER 2 > (defvar a (make-array 10 :initial-element 1))
> A
>
> CL-USER 3 > (defun increment-every-third-elt (arr)
> (loop for elt across arr
> for i upfrom 1 do
> (when (= 0 (mod i 3))
> (incf (aref arr (1- i))))))
> INCREMENT-EVERY-THIRD-ELT
>
> CL-USER 4 > (increment-every-third-elt a)
> NIL
>
> CL-USER 5 > a
> #(1 1 2 1 1 2 1 1 2 1)

Gauche Scheme or Racket:

(use srfi-1) ;; circular-list for Gauche
(use srfi-42) ;; do-ec for Gauche
or
(require srfi/1) ;; circular-list for Racket
(require srfi/42) ;; do-ec for Racket

(define v (vector 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))

(define (increment-every-third-elt vec)
(do-ec
(:parallel
(:vector elt (index i) vec)
(:list n (circular-list 0 0 2)))
(vector-set! vec i (+ elt n))))

(increment-every-third-elt v)
v ===>
#(0 0 2 0 0 2 0 0 2 0 0 2 0 0 2 0 0 2 0 0)

Subject	Author
.Re: Lisp for ANN programming	Robert L.